Iai 


ou 


PUTED, Wn, oy 


mwure vuatiTe: 


@e5e50e3ee 8 eo eoceeen ee eee es 


a 


PACKET 25° eae , : 
tar ge eee ee ee Pp " ——B-CARDS- FROM CK 4 a ae Se sha Sof) dy ee te (Nee DR had oe eee ees eS Se 00, 4 wild tags Shik bor ag 9 info ks 3 ee Sagres tw eee ahs Mekctne cay 
DATE 78104 FRIDAY» 04/1%778 


See fe ee ee RURROUGHS” BS700 DCMCP MARK XVI,O,¢78 “AND TNTRINSICS MARK XVI 08,132 ee” 


si hie anges nie = ENO MESSAGES: TODAY 
41429800 - 9EXECUTE O/R 
11429404 ?COMMON= 1 | 
TT LTT AITO OO OF TCE LINES LINE PRINT - 
11#291802 | @FILE TTY= TTY DUMMY 
11829302 PFILE S=XALGOL/PATCHES 
ea | 113291303 END 
pe 11429204 4:0/R® 2 BOU 1129 11/22/76 
gee, 11429809 PBDO0026 OUT O11 LINESO/R® 2 
SS ee Oe DKA IN SER XALGOL PATCHESTO/R= 2 
11330354 DKA REL XALGOL PATCHESS0/Re 2 
11230254 PBD0026 REL O14 LINE 158430/Rs 2 
aaa ee sO Fos: O/Re 2 FOU 1130 a ne 
11830355 FOR O/Rme 2t PROCESS= 23 SECS» 10s 66 SECS OLAYs 0 
11230156 PKT#0025 REMOVED 


t 


4 
a 

ante entre meer oot 

ne ee nee et mt ~ 
SL A NN A HE a asm: Seti — me a _ f 
d 
are cinema ne a od 
rer recep enn eee Nt Anat ERA At ly cee 
i ne init Ie kN RL ak Sa ee mene mms ok EE Ht asd FEA EE ae on vant new aan ea 


[on end inearen ren mnnamn se neeiianenmmnnenecamideic ranean neamen maloumenemmmanmammmtommtnnremamnaeeniotene tae ee ee 


| 
| 
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LABEL OOQQOOOOOLINE  OO17B1047EXECUTE O/R 


| 
| 


FrLE&t XALGOL/PATCHES FRIDAY 04/14/78 11329 
rr FE PET CR GOT FOR XACGOL XITT CONTAINS 65 CARDS © 
COMMENT * ek ee OH wm ee eK hk ek KK ee mh Ok we ke OK wk 


* * * * *e Kk K .. ner * * ek kK #£ *e * &K EK He Ke Kh RK RK OK KK KK kK OR KH Oh Ow 
7 “DESERTPTION OF NCSL PATCHES 
5/ 5 7/ 72 
Lr ee a 2 ee Se Sr a 
THESE PATCHES. WE: ancLUDER r0 PROVIDE. IMPROVEMENTS 
IN BOTH EFFICTENCY AND USER CONVENTENCE, THEY HAVE BEEN 
“COLLECTED FROM A VARTETY OF SOURCES, PRINCIPALLY FROM THE 
WESTINGHOUSE RESEARCH LABORATORY, 


ie 


pais 


\ 


er aT NOHO ES ee 
a 4 THIS PATCH REDUCES THE SIZE OF THE pIsK AREAS CREATED BY THE 
COMPILER AND SETS THE SAVE TIME OF THE NEWTAPE FILE TO 
mene FS DAYS AND THE LINE FILE TO 1 DAYs 


| 
| 


802 NSROL*PC 1/4/71 DHB 
=A ORBER THAT THE LINE PRINTER FILE WILL ‘NOT BE LOST IF IT 
Ig LABELEQUATED TO DISK AND THE COMPILER IS DS*ED THIS 
PaTCH CAUSES SUCH A LINE FILE TO BE LOCKED AND ENTERED IN 
THE-DISK-DIREETORY WHEN THE COMPILER HEADING IS WRITTEN 
BY THE DATIME PROCEDURE, 


Moore Business Forms, Inc. sv 


pian nape ey tans ht mpaetan en emer nent ever 


SRO ORC re 
THIS PATCH MODIFIES THE COMPILER LISTING aS FOLLOWS, 
As A SINGLE SPacED LISTING IS ASSUMED BY DEFAULT AND 
a erin rn nan aera ae nn aaennaaanen Ben OPEL ON-HE INGLE MUST BE RESET: TOCIVE™ 
NOUBLE SPACING, 
Be THIS aDDS THE ACTUAL PROCESSING TIME USED BY THE COMPILER 
TS THE SUMMARY AND REMOVES: THEESTIMATED AUXTLEARY™ 
MEMORY REQUIRED, 
Cy THIS SETS THE COMPILERS ERROR LyMyT VALUE TO A DEFAULT 
“VALUE OF oS THYS: VALUE MAY BE: CHANGED: AT COMPILE TIME 
BY THE "LyMyrT" $ OPTION, 


ei lea cereal Am te a am 


cemeenerenney 07 Somer, |” aaa eae epee ty tm ee mS THA AS mE 8 00} pene saver yam umm am amg ne we 
THIS PaTCH MODIFIES AND CORRECTS THe COMPILERS METHOD OF 
CALCULATING A PROGRAMS CORE ESTIMATEe 


405 WRe NSRDL*@PC DAVE BROWN 
THIS PATCH IMPROVES THE COMPILERS EFFICIENCY BY 


SOME MOOR CODING, 
OBE BROWNE S787 TO” 
STRINGS $0 Long AS THE FLAG BIT JS NOT SET, 


407 WR 
Fede se THIS. 1PLEMENTS- THE STORE*STAR OPERATOR OF THE FORME 
ee dee KEXP ORS 

BCU] 8= Ca) & AEXP CCONCATI> ETCe 


PROVE ING ADD TT TONAL SEGMENTAT TON: AND BY REWRITING om 


I IN ATR on Som Ca, ms aR we sm eam gD riche ent mm perm 


AM 


09417120 
00490010 
00490020 


00490030 © 


90490040 
00490050 
00490060 


00490070 


00490080 
00490090 
00490100 


Ne ee ene ee ee Oe eee ee aa ee eee eee OOR eT LO 


—00490120 


00490130 
00490140 
00490156 


FOS TEST OHM OOOH O TERS HSK SEH H DER HCE R En OPan nena eeaene (1490160 


00490170 


DOs90T8o 


00490190 
00490200 
00490210 
00490220 


De ee ee ee ee en ene ee ag es om OO Ieee sO 


00490246 
00490250 
00490260 


' 00490270. 


00490280 
00490290 


“00490300 


00490310 
00490320 
(004690330 
00490340 


Se ee et eee 


004590360" 


004903706 
00490380 


TL SS SS SE a OTT wa mas SOTIIIIO 


00490400 
00490410 


00490430 


ee ee en te ee ee er eae Um One O 


‘ 00890450 
THIS ALLOWS 8 CHARACTER BCLe 16 QCTADE OCTAL AND 12 HEXADE HEX00490460 


00490470 


SEEN ELS eT ee ae eee eT eer ee aN aOR eRe OO 


00990490 
00490500 
00490510 
00490520 


ZR 


by ea 3 , 
ad ale y 
ie , ; * —— 
THE STAR (*) aS THE FIRST “"OPERAAND@ AFTER’ THE 00490530 
seer Te ao REPLACEMENT OPERATOR CAUSES A POLISHCDUP*LOD) TO BE 00490540 
@ EMITTED INSTEAD OF RE*EVALUATING THE ENTIRE SUBSCRIPT 00490550 
EXPRESSJON, 00490560 
eee ha tee ee ee Et ee nen eee et eee ee eae ees ees SO OR FORT O, 
@ 408 NSROL@PC 7425/74 DHB 00490580 
TWO NEW FOR#LIST TYPES ARE IMPLEMENTED BY THIS PATCH, 00490590 
To ———— THE FYCCONING TABLE GIVES EXAMPLES OF “THE” NEW FOR*LIST 00490600 
e TYPES AND THETR EQUIVALENT ALGOL#60 CONSTRUCTS, 00490610 
NEW FOR*LIST TYPE ALGOL"60 EQUIVALENT 00490620 
ACERT ESTER BTUNTIL Ct” "00490630 
@ Atc A STEP & UNTIL C 00490640 
+ * ek ee ee ek Oe ® END OF NCSL PATCH DESCRIPTIONS Ce, 00490650 
aaa SE PATCH SOT FOR KAGGOE XITT “CONTAINS” 3” CARDS: Spake 
'@ DEFINE CHUNK = 9083 01556100 
FILE OUT LINE DISK SERYAL £20%300) (RR3015,RR4*eSAVE 1 23 01559000 
: SAVE FILE OUT NEWTAPE DISK “SERTAL T2086007  CRRS; RRO, @RR7PSAVE 4593 0{560000 © 
‘e SEPATCH. 402 FOR XALGOL,XEILT CONTAINS 6 CARDS 
i IF QbeL INE TYPEs12 OR (Oe10 oR Oe13 THEN % GOING To DISK 048628800 
: — SC mee 01825810 
'@ Nise"13 2 DONT NAME FILES FOR REMOTES 01828820 
; LINEsTYPE:%123 WRITECLINE)3 LOCKCLINE)3 % $0 ITS NOT LOST ON DS01828830 
; § _WINEVARERS TFOS LINE GARERSTZET#OF (O16Z6840 
‘@ END 01828850 
$# PATCH NUMBER 403 FOR XALGOL CONTAINS 91 CARDS 00800000 
ae ere ST" MAXSEG AND THPROVED SUMMARY ADDED 2713/74, DABe 00800010 
) INTEGER MAXSEGS & FOR LaRGEST SEGMENT FOUND, 01693100 
ARRAY LINCO39)$3 01822500 
emen STREAM PROCEDURE CODENAME CNT @NZeLINIF VALUE NIsN23 Oys2z7010 
eo. BEGIN @C OD E/N AME 04827020 
LOCAL Ma 041827030 
Sr CTS INSTT “Ors27040 
e 7CIF Sce" " THEN JUMP outs FALE VOeTAGLVRIG: Sresisie 01827050 
Nt=TALLY$’ % NUMBER OF CHARS IN FIRST NAME 01827060 
: To AEF ING DST OET IM MF oSTEELING DSTEA HST “Ore2TO7TO ~ 
ee. . DttelLINs Olfepy4+523 2 TO THE "7" 01827080 
DI tsOT MNS DT repr en3 01827090 
eae canna oe mere ei SGN Strestettoc 04627160: 
e NCOStSCHRS DI teDd14+1)3 01627110 
DSseLIT"/"3 DiteDl +13 01827120 
- EELS NT STRSTR i ee -OTSST1T3I0° 
@ a TCOSHSCHRE ‘OrteDI41)3 04627140 
ae Soe ENDE eecnne es aes mk 01827150 
ae GNDERLINECLING eas cae ae “OLB27T60 © 
e BEGIN 01827170 
STIsLINe SpteSy4+383 01827180 
re ER ING OTP RD ESET re eceeeies -O16eTr90" 
e 15C1F Sce" © THEN D1ssptes See? DSteLiteens: 01827200 
STteSie2) OpisOraL oe 01827210 
——"—ENO? = - ' Oy827220° 
@ STREAM PROCEDURE NAMETTCAsBoWeL IN)? VALUE AsBow3 01827230 
BEGIN 01827240. 
; : PONEDNAMSFICE LOCAL NI Sa “OYS27250°°°~— 
) a ‘Dptebies DytsD 437? STsmLoc As Siesiaas. 01827260 
: CriwCl+wWs GO To ZER3 GO TO ONES % GO TO TWO 01827270 
a sa i, ——DSTETZET IONE -SYMBOLTOC8 I GO-TO NAM TO oe wee bee asenmeeoeme m  ee aen amte areal oe meed 
e ONES D0St# 6LIT*PATCH "3 GO TO FIL3 01827290 


: 


At A I THR eR ASN mo RAE Hf ERR pe Oe en om wa em 


ara 
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ZFER3 OSt® 6LIT*SOURCES 
mt DST OLIT® PELE 3 
f NAM$ DSte 3LIT* 18"3 OSt=BLIT" 3 
7CLF SCe" @ THeN JUMP OUT3 TALLYteTALLYe13 STUBST 41) 3 
—_— TNT STALC YS ST UESTONT DT PEO NE DStseN CHR} 
OStsLiT"/9s SpeeLOc Bs SpteSys+13 OSte7 CHRI 
END3 
en nc gp eee 
BEGIN & GIVE LINE FILE NAME OF CODE FILE 
IF STATUSC(LIN(#)) > 0 THEN LINEsTYPE8#15% % REMOTE INITIATION 
eee STINE MPID ESN LINE FID tENo} 
END3 
_WRITECLINELDBL Ds % 
egy aS gee ee OT TA AGOMDAY » MrOn%s Me L2e"EM eo AD XL eAR>» 
$ VOID 


IF H 2 12 THEN "PM," ELSE "AM,")3 
mn STI BT OL BSI ; 
If N1 2 0 THEN & NOT FOR REMOTE SO NAME tis FILES 
_BEGIN 
= ARETE CE NET DBL) 5 
CODENAMECNS »N2,LIN)$ WRITECLINE s9,LINC#))3 
UNDERLINECLIN)$ WRITECLINELDBLIJ 99, LINC#I)3 
NEtECARD MFIDS N2QECARD,FIOS — 
IF MERGETOG THEN & § TAPE 
; BEGIN 
orm mens eres NAMETECTAPE OMPIDO TAPE FID OOLIND 3 
WRITECLINECDOBLIsIeLIN(#))3 
END3 
TR CARD, TYPES12° THEN ~ 
NAMEITCN1» N2 oREALCMERGE TOG)» LIN) 
ELSE 
————WAMETTOOCARD: te MDECK  teREALCMERGETOG) »LINDS 
WRITECLINECDBL]s9sLINC #33 
_IF NEKTOG THEN % $ NEWTAPE 
EE GTNO uth 
NAMELTCNENTAPE, MF 1D eNEWTAPE, FID,2@eLIN)s 
WRITECLINECDBL 19 LINE ID: 
END 
ARITECLNED 
ENDS 
mmm PT TON ORD FSF AE SESTRUET SINGLE ITIL ‘BR SET SINGLE RESET REST 
has OPTIONS; 43}te1s & FOR SINGLE SPACE To BE DEFAULT 
"6SINGL "als % 42s 43 
ae eo ~~ SENGCTOGTAIRVES 2° DEFAULT SENGLE “SPACE LISTING 
“ERRMAX $= 25) Z DEFAULT VALUE, USER CAN CHANGE BY $ CARD 
FORMAT PAN ¢ % COMPILER SUMMARY 


me 
= 
a 


}: 
i 
| 


X1Oe2Ahel ss 

“PROGRAM STZEt CARDS eet _OTSK SEGS PGM SEGS MAX SEG * 

KLOs 150179 110e TL 197100 12/7 

"ESTIMATED CORE STORAGE REQUIRED =716." WORDS, ")3 
HRTF ETE TED PANGS” COMPILER SUMMARY 


CARDCOUNT es PRTIMAX,» 


SGAVL#1 + MAXSEGPAKKUMe 


ome 


ANUMBER-OF--FRRORS DEFECTED eM P85 -COMPIGE- TIME” =" ES" TN M16" SECOND SS * 


ERRORCOUNTs T1MEC2I/60+CTIMEC1I@TIMES)/6006T1e6T2e 


LE EE ST RA OES RNS OR em na A POR AEE RNA AE ne AE HRS ey GE ERNE mE gE eS INP yey pe peo wane 


01827300 
01827310 
01827320 
01827330 
01827340 
01827350 
01827360 
01828860 
01828870 
01828680 


01826890 


01628900 
91829000 
01832000 
01832500 
01835000 
01835004 
01835025 
01835050 
01835075 
01835100 
01835125 
01835150 
01835175 
01835200 
01835225 
01835250 
01835275 


01835300 


01835325 
01835350 
01835375 
01835400 
01835425 
01835450 
01835475 
01835500 


01835525 —— 


01835550 
01635575 


O2TIO000 


02131100 
09027044 


‘09028020 °— 


098628910 
09274400 


0977 HRI0 


09774420 
09274430 


“O9RTaqAO 


09774450 
09774460 


OOWTTOOO er re ee et 


09417500 
09418000 


Se ron TREN DA ELSE *CHUNKXENTIER C=DAZ CHUNK) s 09016500 


09419000 


€) @ 


—> 


I 
i 
| 
{ 
t 
t 


GTI 
Reg END? | ie 
IF , S7E >MANSEG THEN WAxSEQieSTZEE 2 banecet SO FAR 


$# PATCH 404 FOR XALGOL,XIII CONTAINS 7 CARDS 
ners memes mie BH OT aA ate ps seg one ime ate Bie eS 
GIL tee NOOF ARRAYS > 40 THEN 5000 ELSE NOOF ARRAYSx5001 
$ VOID 09364061 % 


TTS EF TEEEGTITECIF AKKUM > 10000 THEN 5000 ELSE AKKUM/2)3 & 


% 
IF CLOTEMP#sGET(L"2)),£4632]) = 0 THEN CURRENT&8= ,O0TEMP 


09419500 
09419750 
13681100 


09361005 


09161040 
09361050 


09161080 


09361100 
13113000 


TT TK UTOTEMPTSGET CUPID C86T2] £0 THEN FOTEMPISITOTEMP DIV 413148200 


$# PATCH 405 FOR XALGOL,XITI CONTAINS 269 CARDS 
scene EFF SEGMENT -BDEFINE (TOTSEGHERE S BFS & To FORCE A SEGMENT 
SVOTD UT339051~ 
DEFINE FSAVESRRLO#} COMMENT SAVES FRACTIONAL PART EXPONENT 3 
INTEGER IDLOC3 & POINTER {NTO IDARRAY (FILE PARAMETER BLOCK) 
OO eran TE RNS acs 


$ VOID 01525001 
INTEGER KOUNT3 


$0 TU Te0T00T - mm 


$ VOID 91687001 
$ VOIpT O17 37251 


TTB VOT UIT OOOO 


DEFINE LOOKnDEC=% USED ONLY IN SEARCHLIB, SEE devises 
#3; % END OF LOOKDEC DEFINE 


a  OKDEC SDE CLEARS” STREAM PROCEDURE LOOK SEF 2001010 


$VOID 02023000 
$ VOTH 62263001 


7 COUNTI#O} Thx633 % 
$ VOIDNT 
——~-- }- snare ey eet names edema an mee ns 


vOtD a 
$ VOIp 03018001 
$ VOIp 03033001 


TT EP ENE CONS TANTCLEANBBEG IN TF MRCLEAN THEN CONSTANTCLEANP END#3 


PROCEDURE CQNSTANTCLEANP? FORWARDS 
DEFINE PASSTYPECE @( CE ¢CLASS*BOOPROCID).» C4682) ) #5 


DEFINE SORTSTMTSSOR THER GES TMT CFALSED Fo 


; 


MERGESTMI =SORTMERGESTMTCTRUE #3 
PROCENURE SORTMERGE STMT (MERGE) 3 VALUE MERGES BOOLEAN MERGES FORWARDS 
yt Sada AG Git pM to UM al Ch OO ia te ca 
PROCEDURE CONSTANTCLEANPS 
% 


sees a ate ——BEGING EFPSEGHENTY” Wa gene ARR okie gy Eee es Hey te Bh lee oid rane Wight a 


TT BEG TN EFF 


END B2D3 
BVOID 04277000 
SEGHENTI OO mga 
BUGGERCS,£36440)) ELSE. WOPETLIs iF tad THEN RRIO 
BUGGERCS, (36440)) ELSE WOPETLJOIF Tie THEN RR1O 


ND -EFF SEGMENT —DERUG I” iar 


st peaw-proceovae-PaCRCWORDTPOSTTONFSTLEABLES In 


COMMENT P&CK 1S A STREAM PROCEDURE WHICH INSERTS THE SYLLABLE 


INTO THE £€DOC ARRAY, THE SPECIFIC ELEMENT OF EDOC 


+e -EDOCT IE PTY Gy De 12870< BTV AIMOD 1287 


SYLLABLE POSITIONe(L MOD 4 )» WHERE & IS THE SYLLABLE 
NUMBER RELATIVE To THE BEGINNING OF THE SEGMENTS 


VRLUE POSITION*« SYLLABLES 


ee eT ance fe par 


01800060 
01339050 
01340500 
01341000 


- OFA{S5O0 


01525000 
01583000 
01598000 
01684000 
01537000 
01786000 
02601010 
02801610 


“02013184 


02020000 
02262000 


02562000 


02691000 
02716000 


~ 029048000 | 


03018000 
03031000 


“O30348000 


“OF292120 


03034100 
03874000 


03087000 


03062000 
03082100 


04143000 


04163000 
04164000 


—OF2R7090" © 


04248010 
04265000 


~—OReTerOO 


04281000 
04286000 


~ON2BT100 


04292100 
04292110 


04292130 
04292140 


04292160 


ONZISTSO ec 


8 6 


Crerritey 


for 


tS. OF vote 


mwule wusn 


| 


BEGIN 
“DI*WORD' 3 DY «© DI+POSITION 3 DI * DI+POSITIONS 
St*LOC SYLLABLE 3 SJ]«S]+63 
D5e¢2 CHR 3 
“END PROK too 
RR108st "3% 
RRLOracyr O810 THEN OP,£3983)80P(41:3891) ELSE 
rn EERE PUNCH CPE STISIF WRITNEWCFL SST) THENES 
$ VOIp 05056001 
$VOID 05101000 
ne ermnmernerrernnnenses anne BE EA EEE SECMENTS FLAGCERRNUMTS 
EFF SEGMENT? 
BOOLEAN RRR23 
mmr omen EERE CHECKPRESENCE = & FOR EFF 
END CHECKPRESENCE3 #3 
BEGIN EFFSEGMENTSIF SPAC=O THEN SPAC#GETSPACE( TRUE »"2)3 
ae EF FORGMENTS 
BEGIN EFFSEGMENT? RANGEsSELCLASS2LOWER AND ELCLASSSUPPER ENDS 
DEFINE CALLSWITCHCH) = % 
Soviet ee Ss pores tt ee 
$ Voie 05325001 
$ VOID 05387001 
Bog ee ee 
DEFINE IFCLAUSE = & 
BEGIN STEPITS STACKCT # O8 BEXP3 


ieee ae are aes in bones ons yeni ep Sn ecm ons Bs Pee wes et 


$ VOID reece 


OS at = aan seen em ee nen EFF SEGMENT? a ec 
EFF SEGMENT? 
BEGIN. BELIMINATE 274 
pg re ee nN OLE ee ORE RE CER OM) “ENAME CALL 374 
VARTABLECHOLE)3 ZEXPRESSION 374 
GO TO EXIT ZPRT CELL 274 
a ee ee Ae ee PEN ere ae BACT ENTRY £76 
EFFSEGMENTS 
DEFINE CERO Eet: - ae HOLD L FOR A WHILE 
ieee re Ne NR NS sa a NR see ass esas - BF G6 t No se 


DEFINE CHN#; 
BEGIN 
Ttsy+ts STEPITS x 
MOVECODECTEDOC+EDOC) 5 x 
ee me a8 80 “CbeT SOOT — na ema | kh, Oe A nina . ee ee eee . Page | oe a3 ap 
LOeK Cr ILERTIO TOUTES RETIN hcapmeniERieure St0i1 


MERGE DS VALUE MERGES BOOLEAN MERGES 7 
BEGIN INTEGER. JeoKeFILER,FILENDS LABEL Q@UTTI BOOLEAN OPTOG» INPROF 
wen DEFINE Ask#s ROSw1,280%, OUTPROSOPTOGE?s 
LIME NE ARRAY CHECK CHECK S “A PARAMETER ENF O WORD FOR” SORT /MERGE? 
BOOLEAN PROCEDURE ARRAYCHECKCAAW)3 VALUE AAWS REAL AAWS 
ARRAYCHECK«AAW,CLASS<BOOARRAYID OR AAW, CLASS>INTARRAYID 


04292170 
04292180 
04292190 
04292200 
04292210 
04602000 
04406000 
05831100 
05050000 
05061000 
05106000 
05152500 
05166100 
05184000 
05187000 
05760000 


O5293100 © 


05104000 
05315000 
05316100 
05317000 
05379000 
05388000 
06291100 


ZA 06291200 
SS gee a ‘ELCL ASS # “THENV THEN ERR(I16)ELSE STEPIT END IFCLAUS# 06291300 


orn ee eS eT eS Ae tH TINTR ¥T 9 acd ae 


COMMENT. COMMACHECK LOOKS FOR COMMAS AND STEPS AROUND THEME 
BOOLEAN PROCEDORE COMMACHECKS 
BEE ENF NOTE OMMACHECK © STEP TEGOMMAD? THEN ERR 35074 
STEPIT 


ape ae np te eepertestR R P RN feeR SR Ran faye Pare ee Re eR RRNA RD YS epee mI tPA: Hen 


06291400 
06409000 


| O6HTaTOO © 


06420100 
07402000 


(07402100 


07402200 
07402300 


OTs02000 — 


07538100 
07596100 


07609200 


07646397 
07646760 
07669000 
07691000 
07698500 
08246000 
08493140 
08901000 


C8HOTZO0- 


08902000 
08902010 
08902020 
08902030 
08902040 


08902060 
08902070 
08902080 
08902090 


06902050" 


) @ 


- END COMMACHECK} 
COMMENT HVCHECK CHECKS VALIDITY OF HIVALU PROCEDURE FOR SORTS 
ee oot HVCHECK(CELBWY3 VALUE ELBW3 REAL ELBWS 
IF ELBW,CLASS#PROCID THEN ERR(356) ELSE 
IF BOOLEANCELBW,FORMAL) THEN HVCHECKeTRUE ELSE 
ee aa ee —TAKETGTTSGITTELBWI TFT “TREN ERR(3577 ELSE | 
IF ARRBYCHECKCTAKE(GT141)) THEN ERR(35@) ELSE 
- HVCHECKsTRUE? - 
COMMENT "DUT PROCHECK CHECKS SORT/MERGE OUTPUT PROCEDURES 
BOOLEAN PROCEDURE OUTPROCHECKCELBW)3 VALUE ELBWS REAL ELBW3 
IF ELBW,CLASS#PROCID THEN ERRC351) ELSE 
“FE “BOOLEANCELBWe FORMAL) THEN OUTPROCHEGK* TRUE ELSE 
IF TAKECGTL*GITCELBW))#2 THEN ERR( 352) ELSE 
IF TAKECGT141),CLASS#BOOID THEN ERR(353) ELSE 
oT ROARRAYCHECKTTAKETG T1429) THEN ERRC3587° ELSE 
OUTPROCHECKeTRUES 
COMMENT EQ@LESCHECK CHECKS THE COMPARE ROUTINE FOR SORT/MERGES 
a" BOOLEAN PROCEDURE EOLE SCHECKTELBHWI? VALUE ELBW3 REAL ELBwW? 
IF ELBW,CLASS#BOOPROCID THEN ERR(359) ELSE 
IF. BOOLEAN CELBW,FORMAL) THEN EQLESCHECK « TRUE ELSE 
TE FARETOTLTEGTT CEL BW) T#2° THEN ERR(3607 ELSE © 
IF ARRAYCHECKCTAKECGT141)) THEN ERR(361) ELSE 
IF ARRAYCHECK( TAKE (GT142)) THEN ERR(362) ELSE 


emt ened LER MP Rm 9M gh a mR RE Fp ancien EQCESTH E t Ka Pa TR tr E tr 
STREAM PROCEDURE STUFF ILEC 1DLOCOF Ne SFNI3 
VALUE FNe SFN 3 


mn cee "BEGIN DreYDLOCs Dred F53 Dype«dC3 
St*LOC FN3 SyeS14#53 OSe3 CHR3 SyeS1473 
DSe11 LIT#OOOOOOODSRI"3 DS#CHRE SyeSlo43 
wore EST LTT SYSRTVS  DSeCHRI “SFNeEDIS STeLOC SENS 
DIelDLOCS DT eDI453 Sp*ST4+53 DS*#3 CHR? 
END STUFFILE3S 
“BOOLEAN -PROTEDURE INPROCHETK CELBW 3" VALUE ELBW? REAL ELBWS 
If ELBW,CLASS#BOOPROCID THEN ERR(363) ELSE 
IF BOOLEANCELBW.FORMAL) THEN INPROCHECK«eTKUE ELSE 
TET AKECGTIEGIT CECBND #1 THEN ERR ( 364) “ELSE: ne 
IF ARRAYCHECKCTAKECGT141)) THEN ERR(365) ELSE 
INPROCHECK«eTRUE3 
OS ARE ET EAE” Saea REL anemia ah NO Rid Ae Hey, MRT ae a AR. 2: 
BEGIN % MERGE 
END MERGE 
Se aE ae spine” ssa ia esi Na sain Detail sTh aca A wo Dae db > edna ete x. ay ine ce 
BEGIN % SORT 
$VO1D 08945000 
END SORT AND MERGE STATEMENTSS 
$ VOIp 09024000 


ee tet nn nme ce eR at 


PROCEDURE GETREADY! 
BEGIN EFFSEGMENT} 
$ VOIDT 09028073 
$ VOID 09056004 
———— LOCKTIENT¥ J 13” & READ ONLY 
LOCKCSPECTALE*3)3 % READ ONLY 
LOCKCSUPERSTACK(#])3 % READ ONLY 
a ——— EAA SCE TSPATETTRUE FB STS ERRORTOG TETRUE? 
END GETTING READY3 


ees | 


TS YARRA UL ARORA fab, Leta) RMR RE | RI QR ate a mene Hm 


08902100 


08902200 
08902210 
08902220 
08902230 
08902240 
08902250 
08902260 
08902270 
08902280 
08902290 
08902300 
08902310 
08902320 
089062330 
08902340 
08902350 


08902360 


08902370 
08902380 
08902390 
08902400 
08902410 
08902420 
08902430 
08902440 
08902450 
08902460 
08902470 


OB902450 


08902490 
08902500 


08902520 
06902530 
68902540 
08902550 
08902560 
68903000 
08904000 
08926000 


 GB92T7000 © 


06928000 
08929000 


08998000 
09003000 


09020000 


09025000 
09025100 
09027000 
09028068 
09042000 


O9Z5TIIO” 


09251320 
09251350 


“O97 THO00 


09774010 


08902510 


Moore business r orms, Inc. Sv 
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fi 


PROCEDURE CLEANUPS 09974020 

eeepye BEGIN LABEL Lis 09274030 
STREAM PROCEDURE MDESCCWDsTOLOC)3VALUE WD) 09274040 

BEGIN DIeLOC WDs DSe SETSSte LOC WOS DieTOLOCsUSeWDS ENDS 09974050 
"COMMENT THE FOLLOWING PROCEOURE PRINTS OUT THE PRT» NAME» AND 09974060 
SEGMENT NUMBER OF THE INTRINSIC PROCEDURES USED IN THE 09274070 

OBYECT PROGRAM} 09274080 

“nS TREAM PROCEDURE WRTINTRSC(SGNOSALFAsPRToFIL)3 09974090 
VALUE SGNOePRT3 09274100 

BEGIN LOCAL COUNT,DEST3 09774110 
OTR ILS DETER LYTHPRT UF SpteLOC PRTS SzpteSteas TALLYieqgs 09274120 
3CIF Sc#*O" THEN % DONT PRINT LEADING ZEROES, 092741430 

BEGIN SlteSt413 TALLYtsTALLY+63 END ELSE JUMP OUT); 09274140 
omnes “COUNT ISTALL YS DStacOUNT CHR? OSte#4 LIT") = "3 09974150 
SIT!sALFAS SyteS14+23 DESTteDIs & SAVE DI, 09274160 

DItsLOC COUNTS DSta7 LITWO"S DSteCHRS & NO OF CHARS IN NAME, 09774170 
mmm WT FEDESTT DSTRCOUNT CHR3 INT, NAME, 09274180 
: DSte29 LIT INTRINSIC» SEGMENT NUMBER © «3 09774190 
Site LOC SGNOS DSted DEC? DSteLIT™, "3 09274200 

meme AE EEO TOSS OSTEG FILLE S JUNK LEADING BLANKS, | 092748210 
END WRTINTRSC3 09774220 

DEFINE STARTINTRSC#426#} 09774230 

Tr eres scenes mee RRB PREFSEGDICT ION? pOCL2773 099742400 
INTEGER PRTADReSEGMNTOLINKS 09974250 

INTEGER PROCEDURE MOVEANDBLOCK(FROMeS]Ze)s VALUE SIZE3 09974260 
Sage ee eee eres RRRAY FROMCO,073 INTEGER SyZE3 09274270 
BEGIN INTEGER NSEGSoledJ3 09774280 

REAL T? 09274290 

ann ee REESE CSTE SDI DTV OR” 09274300 
IF DA DIV cuoneeteCbRenseeS9 DIV pains THEN 09274310 

DAeCHUNKXT3 09274320 

SR ne eee ne ae eA oe Se RNB OCKSeOAt oo eA 09278330 


DO BEGIN FOR JeO STEP 2 WHILE J<30 AND J <SIZE DO 09274340 
BEGIN MOVEC2*FROML I DIV 1285) MOD 128] eCODECJ))3 09274350 


ee eee ny eee ee ee ea Mee aparaace 
WRITECCODELDAJ)$ DAeDAsts 09274370 
END UNTIL 12S1ZE3 09274380 
cama aac ae er a END -MOVEAND BLOCKS ~~ . <6 09774390 
STREAM PROCEDURE ZEROUT( DESTsNDIV32eNMOD32) 1 09275000 
VALUE NOIV32¢NMOD32 3 09275010 

see ee EM OT ee DEST I” ows ; oe ' "09275020 — 
7 NDIV32¢32¢0S twB LITHO"); 09275030 
___NMOD32(D8 b= 8 LITOM); | 09275040 

te neha ee gee me 8 nn Ahi) nl ee am Ae em ema Re MME Som see a ke a An PR a eat . wee . . . O92TS5050 ey oa 
$ VOID 09333000 09317000 
$ VOIp 09348000 09334000 
— —— FHC ETD OC MEARS CHDARRATEOD 25 £33 tSdete tebe #  - 09994000- 
BEGIN 09409000 
$ VOIp 09415000 09410000 

te END OF CLEAN TIPS ttre 09820000": 
BEXAERULEAELEX ACTUAL COMPILATION DONE HERE BEELBSELERELEREaELE2ELER%2% 09421000 
DEFINE PROGRAM = 09421100 

se aaaehnnaienemenaenen meadenere nen eanteeenanen enema GE FREAD Sm TANNIN Fe mR OME a wm ame er le nm ag tem mnt ” mem mmm mC nak nem rg han . oa ue 9422000" tee 
| BLOCK (FALSE) s 09423000 
: | a CLEANUPS 09424000 
ate a A | J I a ar catia cot ~ ete tn . 09 4 26 1 00 


yea uhcnshuen4s0945004000 6009055 tE0d5 5 0EN 109168 5 8199 7809 KEES KER ELEN TAO COE SoS 


LL A TRE I RN AAA IY PRP RI Nee tn RPS am ERE FANE tam QE RO HE BAER KS np Ack Wee cae ee pa nome ct pee sipMemammnetytte giiiy yer fe eesiuivwama gum ems 


€ @ 


| 
| 


| 
| 


| 
7 
| 
i 
i 
| 


$ VOIp 10193000 
ss" MOVE CHARACTERSTCOUNT s ACCUMA ASK IPS 3s INFOs TSKIP DES 


“COMMENT 


BOOLEAN 


“COMMENT 


EFF SEGMENTS 


WAS THE RESULT? 
PROCEDURE GETINTS 


BEGIN NEXTENTIO TP ELCLASS «ee ELCLASS “<< O° THEN 
IF ELCLASSwec"*") THEN GETINT+ TRUE ELSE 


“TRENTIFTER, - 


VALUE NUMBERS INTEGER PirP2+NUMBER} 


“BEGIN 


IF NUMBER < O THEN BEGIN feaocaesa: ERRORTOGeTRUES 


NUMBER « O END3 


NUMBER « NUMBER*P13 


DEFINE PACKINFOCINFOsTSKIPsCOUNT®ASKIPS ACCUM) & 


2 VOrp 10240004 
$ VOID 13144004 


aa orn i AEE TP SIT OOO T si ee 


BEGIN EFFSEGMENTS 


$ VOID 


13537004 


EERE INF OD BOF OR OEP Faye 

BEGIN EFFSEGMENTS 
DEFINE MOVE2(SsD)=MOVE(2»S+D) #5 
——— S-YOTD 13676081 ’ 
$ VOIn 13682001 


EFFSEGMENTS 


mms = BEGTN HANDLES WET ST 


GOTSTORAGE « NOT SPECTOG OR GOTSTORAGE? ZPRI 


GO %0 START ENDS 


ETRE CHR SOBET FE GTAT Ty Pe 17 #0, THEN: “FLAGC2394#3 & 
$ VOID 14273201 

EFFSEGMENT}3 
oe a a ee EPP OLGMENT fo 
$ VOIp 15019001 
REAL STREAM _PROGEDURE (GETALPHACINFOINDEX*#SIZE)3 


tne ee re ee Same mm 


aaa —TSTSTNFOTNOENS 


aes $1. ACCEPTABLE $0 LONG AS THE FLAG BIT IS NOT SET, 57/75/72 De 
cate $1 TH1S CHANGES THE WAY THE COMPILER TREATES OCTAL AND HEX STRINGS, 
AA 2 

$4 THIS DOES NOT CHANGE THE WAY ALGOL USES THESE CONSTANTS BUT 


ee | 


BEGIN COMMENT GETALPHA PICKS ALPHA CHARACTERS OuT OF INFO. AN 


“VALUE SIZE FT 


BEGIN FLAGCL37)3° ELCLASS” * o END 
END GETINTI 
DIVIDE PARTIONS THE PARAMETER NUMBER 
RESULT |S PASSFD BACK THROUGH Pi>P2e 
ogee ‘SEE CODE FOR DETAILS$ © 
INTEGER PROCEDURE DIVIDECNUMBERsP41.P2)5 


INTO THREE PARTS, 


“PY + TF NUMBER < 8 THEN NUMBER ELSE 83° 


P2 ¢ IF NUMBER < 8 THEN NUMBER ELSE 63 
“DIVIDE « NUMBER®P2 END DIVIDES  — ~ 


ZSAVE 


CELL 


FORMATS THE JD WORD THAT 1S PASSED TO PRINTI, 


WS” THE STZEQ 


“TRE NEXT CHARACTER CONTAINS THE 


ALPHA LEFT JUSTIFIED WITH TRAILING ZEROS} 


DieLoc GETALPHAS — 


END GETALPHA3 
$# PATCH NUMBER 406 FOR XALGOL CONTAINS 31 CaRDS 
RACTER BCLI- 16 OCTADE OC TAL AND I2° HEXADE HEX STRINGSOOST7110 


DSeg LITO "3 


RS A-STRING ORS 


a a ee A Re NR. Nm im 


THE FIRST 


DieD1l@7}3 


OS*+SIZE CHR 


GETINT DOES A CALL ON NEXTENT AND CHECKS TO SEE [IF AN INTEGER 
IF NOT ERROR © OTHERWISE MAKE SIGN PLUS} 


THE 


AND THE FUNCTION 


“WS OTHER STRINGS” 


a 


09426000 
10070000 
10105008 
10105010 
10105020 


TOTOS0T0 


10105040 
10105050 


°10105060 


10105070 
10105080 
10105090 
10105100 
10105310 
10105120 
10105130 
10105140 


10705150 


10105160 
10105170 
10105180 
10175000 
10733100 
10233200 
10236000 
13115000 
13209000 
13369000 
13532000 


£3593000_ 


13632100 
13474000 
13675000 
13682000 
13715100 


“P4166000 


14168100 
14168200 


14773100 


14273200 
14527000 


15006100 


15014000 
15830100 


15030200 


15830300 
15030400 


15030500 


15930600 
15030700 


‘15030800 


15030900 


02776030 
02847005 


“Oz ba70TO” tata atatlgn oh haem tiene Leake Salah neato GRAD Basia BW dt ci nee we wabimina tees aN Be AL acess. fa foes s 


02647015 


eo @ 


—_ | 
| 
| 
q 
j 
1 
i 
| 


$t IN XALGoL THE STATEMENTS! 

St REPLABDE » « » BY "A" AND 
$3 
$1 


__ 


@ REPLAGE » « « BY 3*21"3 
WILL GENERATE THE SAME RESULT, 1/16/74, 
= PROCEDURE DOOCTALORAEXSTRINGS = ee a 
e BEGIN LABEL AWA¥; & 
, RESULT&8353 SCANNER’ & SKIP QUOTE>s 
smorerorrmrns serrcs mrnmnnsvns samme OOGUNT TED GTIIS 48 DIV Cs 2% 16 OR 12 
e DQ BEGIN 
RESULT##®53 SCANNER} 
rr a eg ern emma TE “COUNT * GTYT THEN % > 1 WORD LONG, 
r BEGIN ERR(520)3 GT1i#0} GO AWAY END? 
END UNTIL EXAMINCNCR) any 
menrnemes emer OE BACCUMELP TS RESULTS aS3 SCANNERS COUNTS 2COUNT=13 
:@ IF Ca3 THEN & OCTAL STRING, 
. IF OCTIZECACCUMC1)2ACCUM( 4) 2¢16"*COUNT*@ COUNT) THEN 
a er mene enn “FE LAGCS 21) & NON*OCTAL CHARACTER IN STRING, 
e@ ELSE ELSE IF HEXIZECACCUME 13 eACCUM( 4) +1 2"°COUNTe@ COUNT) THEN 


FLAGCS21)3 % NON*HEX CHARACTER IN HEX STRINGe 


MO@VECHARACTERSCCOUNT»ACCUM( 4], 8eCOUNT,ACCUM( 1}.3) 
GTyta43 QteACCUME AJ $C *RCOUNT( 127425615 
py ee np “WAY TE 
END reine OR HEX STRING} 
STRNGXTsARGHe & 
TE COUNT << BOR! 


Moore Business Forms, Inc. sv 


@®eee%ee%eee#stee8s¢ 8 8&8 6 @ 


! 
| 
| 
| 


$ VOID 02704004 
Trnene easel tneated Ineelia petenmadninell catomntnrete rome EO TH i On cr 
DOOCTALORHEXSTRING? % 
IF BOOLEANCGT1) THEN GO TO STRNGXT) % WAS VALID 
a net ec at Von 62765001 er se mie 
GO TO SCANAGAIN} 2 WAS AN ERROR 


$ VOIDT 02762001 
$F PATCH 407 FOR XALGOL.X1T2 CONTAINS 22 CARNS 
IF ELCLASSSCROSSHATCH THEN BEGIN 
INTEGER SL3 
IF ELCLASS@FACTOP THEN 
ra EL NTE EINK TOG TREN SE LAST SYLLABLE IS’ NOT A LINK 
IF (SheGETCLe1)),£46%2)e3 OR SLe673 THEN BEGIN 
ELBATCI}, CLASS*ELCLASS*GROSSHATCHS STEPITS 
armani mrs mms eee FMT TOCDUP TY EMITOCCOD)S “GO EXIT ENDS 
IF eLGiaSSacROSSHATCH THEN GT4*BOOSEC+BTYPE ELSE 
IF Pq # FL THEN STEPIT3 


EMITOCCOC)S IF T1440 AND ELCLASSeFACTOP THEN 
EMiTocOUP) END 

Tr i es ne On ee EEO OR ELCLEASSEFATTORP THEN BEGIN 
EMITVCTALL YFIF Ti1#0 AND ELCLASS#FACTOP 
THEN EMITOCOUP) END 


a ECE ACTOPR THEN BEGIN” 
ELBATCI), CLASS*ELCLASS*CROSSHATCHS” 


COUNT=8 AND NOT BOOLEANCG,£1844)) THEN & NO FBIT STILL OK 


or ETO OR ELCLASSEFACTOP THEN BEGIN EMTTOCOUPTS 


“—TPELCEASSHFACTOP THEN BEGIN’ Se eae aga 
ELBATEII9CLASS © ELCLASS *CROSSMATCH ENDJ £93 
BEGINS 


TET | RL A 29: Pa HRS A a PE NR PRA RY Re enone mm MINAS A ARAL OY AS HARE oie ot 


02847020 
02847025 
02847030 


02001855" 


020018656 
02001900 
02001905 
02001910 
02001915 
02001920 
02001925 
02001930 
02001935 
02001940 
02001945 


02001950 


02001955 
02001960 


rms mses ee CQUNTPECCOUNTXC4C) DEV 63° 8 NUMBER OF 6 BIT CHAR IN STRINGO2001965 


02001980 
02601965 


02004990 


02601995 
02438000 
02503000 
02703010 
02704000 


“02562000 — 


02763000 
02764000 
02765000 
02766000 
02767000 


‘O2647000~ 


06003200 
06003400 
06089500 
06091200 


DEOFTIOO 


06091400 
06091500 


‘06091600 


06152500 
15092015 


-“T5095000"° 


15095500 
15095600 
15097000 
15097500 
15997600 


150986050 
15098200 


‘13306200 


15306400 


-PROVBORE me 


| @ 


-EMITOCDUP)? YF TiO THEN EMITOCLOD) END! 
fee ee aera etre 19 CARDS 
LABEL EXITsGETC# & 
OR ELCLASSmLEFTPAREN OR ELCLASS=COLON 

EEL SSBOOLON- THEN ES He 

BEGIN& 

S}MPLEBt#CONSTANBS*TRUES SIGNBSsFALSESS 
“BESTS ELCLASSI@UNTILVIR °° - 

PLUGCTRUEs 133% 
ENDS 
Pease eos tlds ef “EESER- 

STEP TRUNTILV ‘oR cLcbaSSeRTPAREN OR ciceaeceuniuey 
OR ELCLASSSRTIPAREN & 
BEGIN: SE COLON MAYBE 
IF ELCLASSsCOLON THENS 
BEGINS 
aeons — EP NT ETRUE SD STGNBISFALSES Brais GO GETC % 
ENDIS 
IF FORCLASSCUNTILV) OR ELCLASSERTPAREN THENS 
——“GEFCT OTE? STMPEE TCONSTANTS ONS TGNC) THENS ~ 
ENDS %% MAYBE COLON 

S# PATCH NUMBER 410 FOR XALGOL CONTAINS 389 CakpS 


i | 
ey 


TSF MPC T MENTS SYSTEMT DS NABS AND NOBITSON, = = 10/26/72 
$t THrS 7S THE TPC PATCH FOR ALGOL AND XALGOL, D, H, BROWN*==JAN, 1973 

TASKID e115#, COMMENT 163) 

rere meres mene EVENT ID OO UO RTL OR, COMMENT 1643 
IPCPROGID 7117#» COMMENT 1653 
SIZEV RO1e>. COMMENT 253 

A na NGL mA FE HRI TKSEKV ee ee 8224s apemeege mee “COMMENT ve 2 87 vam 

EVENTV B238} COMMENT 273 


| BOOLEAN IPCJOBs % TRUE IF "PROCEDURE" 1S FIRST THING TO BE COMPILED, 
rn nmr serccmencnnens 26 SE PE WE ARE” COMPILING AN TNVOKABLE “IPC PROGRAM, 

Z AFTER PROCESSING THE IPC PROCEDURE SPECIFICATION THE 

% CF CONTAINS 2xMARK» WHICH POINTS TO THE PARAMETER 
~~ -$-SPECTFTCATTONS-“INOTNFO5” THE Fro 1S USED TO COUNT: THE 

% NUMBER OF PPROCESS" STATEMENTS, IF IPCJOB IS NON ZERO 

% AT WRAP UP THEN THE CODE FILE IS MARKED AS INVOKING 


[ 


15306600 


08017000 
08103100 


OBL11100 


08111200 
08111300 
08111400 
08111500 
08111600 
08111700 
08113000 
08128100 


06162100 


08182200 
08182300 
086182400 
06182500 
08184000 
08165000 
08722100 


01778060 
01778065 
01778070 
01298600 


' O1Z968650 


01298700 
01401100 


' OL60T110 


01401120 
01401130 


OrsOT1sO- 


01401150 
01401160 


meri cen nnn AN LOR ENV OKED AND’ IF NEEDED) A PARAMETER DESERIPTIONO1401 170 
% SEGMENT IS WRITTEN IN THE CODE FILE, 12/13/72 DHBROWNO1 401180 


| POWERSOFTEN #758#r 
i “CASTSEQUENCE 8 209te  B- TOO" ™ S1t 
SORTA 27598) | 
<X24e"CUSTOMS BP5700 IPC XALGOL COMPILER MARK ", 


01574000 


“OTS7T3000 


01580000 
01830000 


= PROCEDURE -FASKAT ERT BUT ERANDEERCE IS VALUE FF “INTEGER FI" FORWARDS £07 76600003061 250 


MAXANDMIN»s DELAYsDELTAs OTHERS» SYSTEMIDs EXITS 
MAXANDMINe MAXANDMIN, DELAYs ‘ABS, s NABS 
et alt Gee IS Ot pea a gece : 
IF BOOLEANCCTLtsELBAT(122,V0) THEN % WRONG TYPE BOOLEAN 
BEGIN ERR(193)3 GO TO EXIT END} 
"EMT OFETT TOT UG TES OR T2280 THEN” 
GO TO SrIF T2250 THEN T2"40 ELSE T2e43 
ABS! PANAS EMITOCIF T2250 THEN SSN ELSE SSP)$ GO TO EXITS 
SY STEMTOT EMT TCCIIE EMTTCCTI EMT TOCCOMIT STEPITS GO EXTTY & FRM ~ 
IF ELCLASSwEVENTID AND REALF THEN & REALCEVENTID) JS OK 


06060100 
06061100 


€6U6ry so” 


06061500 
06061750 
06862000 
06062050 
06067000 


O60TSTSO0° 


06090176 


BEGIN EMITVCELBATEIIJ)§ STEPITE GO EXT END} * EVENTS: ON _STACKO6090179 


TEE LCE ASSETASKTO THEN Bo : ise ae 
BEGIN TASKATTRIBUTEHANDLERCFP)# GO TO LAMPER END3 


ey 


an mtn Re ARAN RRR SP AR RR RA FORRES A RR A RAPE Hm | =| IR A RANA SIR 


06092077 


Ae eee Fen pe at eae EN cayee emt 


“C609 20TS" ee ce ee) er eC oe ee ee ee Ce ee ey 


KET UvoINTsZ9 © UIEN, 


vA 


_] 


—> 


Ea alae BIMPFUNS & HANDLES THE BOOLEAN SPECIAL FUNCTIONS 
eae ar EGIN' &” 
LABEL OTHERSsF IX» FREE, AVAILABLE s ACQUIRE sHAPPENEDs PEND» NOBITSON?e 
EX1T» BKRPNS 
ee et np es eee Loe “SWITCH cS maa bic” tie eeisipaiaen eee es ‘gine 
FUN (wa THE RECE TV OPRCESAUAIUA DLE SA COUIRE ARRE MED FRENDIAIDE TES ONT 
DEFINE HAPBIT = 8#, & BIT C44ty) IS ON IF EVENT HAS HAPPENED, 
AVLOIT = 4#3 % BIT T47t1] FS ON ITF EVENT JS NOT AVATLABLE, 
% IF THE AVLBIT IS ON THEN EVENT,FF CONTAINS 
% THE MIX {NDEX OF THE PROCESS IN CONTROL, 


nt ng re 


mmr mmr mens Pe ES” TPE CPELBATIII £2736) §$ 6 THEN % FIRST PARAMETER MUST BE EVENT 


BEGIN 
IF STEP] # LEFTPAREN THEN BEGIN ERR(105)%3 GO EXIT ENDI 
““TF-STEPT Ff EVENTID ~ THEN BEGIN ERR(554))3 GO EXIT END} 
T2twELBATCII3 & THE EVENT 


IF REAL CIPCJ0B) £33415) # 0 THEN & COMPILING AN INVOKED IPC JOB 


“TF FSTTHITT- & 65 AND Tis 2 THEN ® CANT FIX OR FREE A 
FLAG(955)3 % FORMAL LEVEL 1 EVENT 
STEPITS 
_iacechtapiacgeari temper ie Nisei etn: iS i nie a, tt eel Corer 
GO TO FUNETESt 2) % “10 PROPER SYNTAXER 
OTHERS? GO EXITS & ACTUAL BOOLEAN INTRINSICS WOULD GO HERE 
IEE SOM AKED THE EVENT se reN OT AVATLABLE AND RETURN FORMER STATE 
FREEt & MAKE THE EVENT **** AVATLABLE ***# AND RETURN FORMER STATE 
EMrTVCT2)3 EMJTOCDUP)3 % 2 COPIES ON STACK 
mr ammncmnrmrenarmensnarn nn" EE PERERA APB ITIL ND ITS RESETS EVERTHING BUT HAPBIT 


IF Ti#4 THEN EMITPAIRCAVLBITseLORI3 & FIX = BIT ON SO NOT AVAIL 


EMTTN(T2)3 EMITOCSTD)? % CHANGE IT 
ENTTOCENGIT 3° RETURN TRUE IF TT WAS” AVAILABLE, 
GO CKRPNS & 

AVAILABLES % REXURN TRU¢ IF THE EVENT IS AVAILABLE CAVL BIT OFF) 
on EMT TTT ZTE EMT TOCENG) FCO CKRPN 

ACQUIRES & WAIT FOR AVLBIT OR TIME OUT 

PENDS =. & WAIT TILL HAPBIT OR TIME OUT 
EMTTNCHZIT-S “ADDRESS OF THE EVENT 
EMITLCIF T1s4 THEN AVLBIT ELSE HAPBIT)3 
IF EUCLASS#COMMA THEN BEGIN ERR(556)3 GO EXIT END) 
mmm SEP LTE RE RPE” EO TIME OUT TN SECONDS” 

EMTTPAIRC449COM)2 % GO DO IT 


erie a at ae tea HL A 


EMETOCDEL DS EMTTOCDELDS % LEAVE RESULT OF FUNCTION ON STACK 


aaa ea i ici i Snel ~-—-Gt- “CKRPENE — ica cn peat dl as wie ta 
HAPPENEO#® RETURNS TRUE IF THE EVENT HAS THE HAPPENED BIT ON 
EMITVCT223 EMITPAIRCHAPBIT» LND) I EMITPAIRCHAPBITSEQLI3- 
—-80 Cihiht—_2 ge acioei 
NOBITSONIE NOBITSON(X) = NOT X os NOT 0 
PANAS EMITOCLNG)S EMETPATRCOsLNG)S EMETOCEQLDE 


CKRPNE IF ELCLASS # RTPAREN THEN ERR(104) ELSE STEPITI 


EN BORE RN TMP ETED FUNCTIONS rae 
Bee e 1k ELCLASS#TASKID THEN. GO 10 ase % uae ARiTAIETIe 
GO TO. L483 % FOR SAFETY ONLY 


ETT on TE BOUL EANTELBATETIGVOF THEN & BOOLEAN INTRINS IO 7” 
BEGIN BrMPFUNs GO TO TO ENDS g& ALLOW , AND & AFTER IT 


AA SRR NRE NRA RNR NE HARI aR Re | EN A a aR A Re EA RIERA ANREP OS RIN ZS tN 


06210010 
06210020 
06210030 
06210040 
06210050 


— 06210060 


06210070 
06210060 
06210090 
06210100 
06210110 
06210120 
06210130 
06210140 
06210150 
06210160 


OB210170 


06210180 
06210190 
06210200 
06710210 
06210220 
06210230 
06210240 
06210250 
06210260 
06210270 
06710280 
06210290 
06210300 
06710320 
06710330 
06210340 
06210350 


06710360 


06210370 
06210360 
06210390 
06710400 
06210410 


06270420 


06210440 
06710450 


O62T0S60 © 


06210470 
06710480 


~“O62T0G90" 


96210500 
06210510 
06210520 
06210530 
062105480 


- C62T0550" 


06227550 
06734500 


‘06235000 


06235500 


ae gem ne eR TIE Oa ep mnie tap Ce Rm mm geese tania 


L163 L19t L20t L22s £23! L24t Loét Lavt Leet L3at 1323 L338 

IF ACLASS#TASK1D THEN GO TO LODPOINTs % NAME CALL ON TASKID 
“TE ACER SSREVENTID THEN GO TO L22t & NAME OR VALUE CALL EVENTIO 07217517 
COMMENT IF THE INTREINSTC YS ONLY IMPLIMENTED JN LINE EMIT AN ERR! 07315100 


$| @ 


06236000 
07217515 


| 
| 


IPCJOB, CFF JIsBOOLEANCREALCIPCJOB,CFFIJ)41)3 % COUNT PROCESS STMNTS 07565150 
STEPIO# 


Age oa ee “TPCPROCTD TREN” FRULTCSS993--% MUSY BE EXTERWAL PROCEDURE “O7765175' 
SCATTERELBAT:3 07565200 
EMITOCMKS)3 % MARK STACK FOR CHAR MODE CUT BACK WITH XITR AFTER COM 07565250 
EATS TARE CHARK TEL INGE FINCRE THO THEN GOTO ZE°R £ PARAMETERS ~ 07865275" 
If STEPy # LEFTPAREN THEN FAULT(105)3 07765300 
, D0 BEGIN 07765325 
See TETARETHARK EPENT tePEN Tey 39 VO) THEN ® VALUE O07 568350" 
BEGIN STEPIT: % 07565375 
IF EXPRSSH#CIF T, EUASS e000: ‘THEN BTYPE ELSE ATYPE) THENO7765380 
aaa emer ES 191 Fo) Ge a Treat -OTT6S385° 
END §& 07765390 
ELSE & 07765400 
ieee aa ——BEGIN-S NAME “CAbL OO Sree en ') 1-5-7 +4. eee 
IF STEPY # T,CLASS THEN FAULTC123)99 ‘EMOEUBATELRDY. 07565450 
IF BOOARRAY!D ¢ ELCLASS $ INTARRAYID THEN 07565475 
tl MTTPATROES EOD TT Tet a atin ‘pas ii a a cs te ip ia 2 5 eS i bia ep ite Tiga: <i elt heen See aie ABS ea i 
DO UNTIL STEPy=eCOMMA OR ELCLASSSRTPARENS 07765525 


OTT65500-~ Fee ROG mE mM me nanan otememe a ee mR a eee en erm ce 


RR ARTE ROE ER ON ANE SI A nH 


e IF TAKECWHOLE*WHOLE, (3312]) < 0 THEN FLAGCS52)3 07315200 

nnn nserrrnis mon mone EP ECEASSETASKIO THEN 07529300 

e BEGIN TASKATTRIBUTEHANDLER(FS9 5 GO EXIT ENDS 07729400 

PROCEDURE I1PCSTATEMENTCW)3 VALUE wW3 INTEGER Wy 07560000 

BE GTN SE -VALUE OF “W PASSED 1 ° 9° 2 3 #84 a 07560100 

@ LABEL EX]T» LIBERATE,PROCUREsWAIT,CAUSE»RESET? 07560200 

SWITCH STMTi« LIBERATE,PROCURE »WA]T,CAUSE,RESETS 07560300 

em DEF INE HAPETTHO8s S BIT Thary7 YS ON JF THE EVENT HAS HAPPENED 075604800 

@ AVLBITsq#s & BIT C4794] TS ON IF THEN EVENT IS NOT AVAILIABLE07560500 

REAL &3 07760600 

TE STEPT #LEFTPAREN THEN BEGIN ERR(105)3 Go EXIT ENDS 07760700 

'@ IF STEPI # MVENTID THEN BEGIN ERR(55794 GO EXIT ENDS 07760800 

EssELBATCI]3 07560900 

OR ee ae bo . 7 07567000. 

‘@ LIBERATES % CALL COM 44 oa ee iNts EVENT ADDR» Oe NOT O @ RESETS AVLBIT 07561100 

PROCURE! % CALL COM 44 PASSING! EVENT ADDRe 4° NOT O * GETS CONTROL 07561200 

WET CREE COM AAP RSSINGT EVENT ADDR» 8» NOT O = SLEEPS TILL HAP 07561300 

‘e EMTTNCE)3 07561400 

EMITLCIF Wed THEN O ELSE JF We2 THEN AVLBIT ELSE HAPBIT)3 07561500 

Me Regrets Pet rea TEMTILUOOF TE MELT THEN EMITOCLNGIS EMP TPAIR(44, COM)" 07561600 

@ EMITOCDEL)+ EMyYTOCODEL)! EMI TOCDEL)# x CUT BACK STACK 07561700 

GO EXITS 07561800 

or RSE Tm SFG ON HAPPENED BIT) 07561900 

Py RESET! X TURN OFF HAPPENED BIT 07562000 

: EMITVCE)3 07562100 

ni i EEF ER EAP BET PTE OWES THEN LOR ESE BN? s~ “OFS62200 - 

ry IF We5 THEN EMTTOCLND)3 07762300 

EMYTNCH)) EMITOCSTD)3 07562400 

EEE EMS FEDER PAREN THEN ERR (104) ELSE STEPTT? “OT562500 - 

@ END IPC STATEMENTS 07562600 

PROCENURE PROCESSTATEMENTS 07565000 

gee ae rea BEGTN-S RANDLE St PROCESS” TPCEXTERNAL CAP) SAPD SAP SIL TASKIDI3 “O7565025 

e REAL EaTs 07765050 

INTEGER Ne MARK» PONTE 07765075 

TT rmmrnmnncnnn en ABEL BADTZI es ~~ 07565100 

e DEFINE FAULT CF) = BEGIN ape GO BAD END#, FFR18835#3 07565125 
Yd) 
& 
@ 
@ 
®@ 
@ 
@ 


1 Ura. 


movure vusincs. 


WK, oF tose 


@) 


—>- 


END 
epee Hal ce hts 2 cise 
BEGIN EM:TNCE)3 
ThelF ELCLASSeEVENTID THEN 1 ELSE 25 STEPIT3 
eee 
END NAME CALLS! 
EMITLCT)S & PARAMETER: ‘TYPE 
‘iam at dial Salat nail eal megidipiniuied Vey ble a ND" ines oe . 
UNTIL ELCLASS # COMMA OR PCNT&N3 
If PCNT # N THEN FAULT(128)3 
nn FEEL CEASS EE RTIPAREN THEN FAULT (C104 )3 
~~ Zt JF STEPL # LFTBRKET THEN FAULT( 56023 
EMI TLOND 3 & NUMBER OF PARAMETERS 
ne en a Et EA SK TO THEN FAULT (56033 
EMITPAIRCELBATCI)sLoOD)3 
If STEP? # RTBRKET THEN FAULT(560) EUSE STEPITS 
~~" "—EWMTTPRIR(GZe COMMIS ¥ GO DO-IT” ; 
EMITNCXYTROS & CALLS FIRST SYL OF SEG 1 "EXCH ue CUT BACK STACK 
IF FALSE THEN 
RRO 
END PROCESS STATEMENT} 
PROCEDURE TASKATTRIBUTEWANDLERC(CF)$ VALUE F3 INTEGER F3 
To COMMENT TASK RTTRTBUTE HANDLER PROCESSES ALi, TASK ATTRIBUTES, 
IT 1S EXPLICITLY CALLED IN 2 PLACES! 
18 IN STmT PASSING F m FS, 
“THIS HANDLES TASK - ATTRIBUTE ASSIGNMENTS BY CALLING AEXP, 
2! IN PRIMARY PASSING F & FP, 
THIS ALWAYS LEAVES A VALUE ON THE STACK, IF AN ASSIGNMENT 


ee eke eg te TS-REQUTRED- TT TS" MADE WITH ASNT OTF NOT THE CURRENT” ~ 


VALVE OF THe ATTRIBUTE 1S LEFT ON THE STACK, 
ACTUALPARAMETERPART AND BPRIMARY DIRECT TRAFFIC THRU THE 
nn AOE ENTRY POTNTS: FOO THETR WORKS 
END COMMENTS 
BEGIN 
Sa) Tie ne Laat Liga 
EtmELBATCTI) *® TASK 10 
If STEP! = BERTOD THEN | 
BET 
STEPITS 
IF ATNDX$# 
I OT ASK VT THEN O ELSE 
: If @ = "4mMFyDO" THEN {$ ELSE 
: IF @ = "3p 7000" THEN 2. ELSE 
ae STATO THEN ELSES 
IF @ = "7STACK® THEN 4 ELSE 562 
2568 
FEN PACTS LIFE ONRECOGNTZED ATTRIBUTE 
IF STEP] = ASSIGNOP THEN 
BEGIN & SET ONE 
EO ENED THEN FEAGTSIOSIT BD CANT BE CHANGED 
STEPITS AEXPS 


IF BTNOX#3 THEN & TSK,STATUS REQUTRES A COM FOR POSSIBLE (DS. 07766730 Wh cacharec ha esas Mees 


———BEGTN-EMTTPATREESEODIS-EMTTPATREOSSSCOMIT 


END % 
Se eeeeemrene te eke JUST—CHANGE- THE ATTRIBUTE: 
BEGIN EMyTLCATNDX)# EMTTNCEDS 


~“OTS66TIS 
EMITOCDEL QI 1F FeFP THEN EMYTOCDEL)# & CUT BACK STK 07766740 © 


a TE LR RR I I RRNA F AOE ER RoR =m RE PNA RP RR OH Ay Hi Oe ARIMA mR tH 


07765550 
07565575 
07765600 
07765610 
07765615 
07765625 
07565650 
07765675 
07765700 
07565725 
07765750 
07765775 
07565800 
07765825 
07565850 
07765875 
07765900 
07565925 
07565950 
07765975 
07765965 
07566000 
07766025 
07766050 
07766075 
07566100 
07766125 
07566150 


OTT66ITS 


07566200 
07566225 
07766250 
07766275 
07766300 


87566325" 


07566350 
07766375 
OT766400 
07566425 
07566450 


O7566075 


07566500 
07566525 


“07566550 


07566575 
07766600 


“OTSGB62Z5 ee 


07566650 
07566675 


07766700 © 


07566725 


07566745 


-OTT6OTSO 


07566755 


fe a eng HAE Ne me Ik RAL MURINE a LEE UN a aig scm cami em Pm 


€) © 


—> 


EQDsS 
gee ad Tes ae NO 
ELSE 


| 
i} 
{ 
| 
I 


eeamnenennenmamenaanssemmnnaemammumenmannmensentae eee arenas paves, weet me 


END 


Wee csac0svoO pone. 
0¢T0130000006240000, 
Se OCT OT Se 
0c70132000000640000, 
0¢T0130000000040000, 
~~“QETULIOVNNNNG 360000» 
0¢T01320000860760000, 
0¢170132000000460000, 


0¢70432000000560000, 
0¢70430000260000000, 
—_—_———---- oe Toe s00N00ZTONCNNNN,- 
0¢T14400002§0000000, 
0¢T0030000260000000, 


raph yemimmeten ms 


ee a sh A a i et A ai cine ws ni 


BEGIN 
END3 


Lis} 


oa 
1 


00003” 


a CIO eT RUT 


enn 


EMITOCIF FeFP THEN SND ELSE STO)3 


W3FTX00", 
“ANABSO", 


THFREEO" ® 


"A4PENDO". 
"3TANOO", 


"BSYSTE*: © 


"BNOBIT"s 
"TACQUI™» 


y*ORVATE 


"GHAPPEMs 
"4TASKO™, 


ECSE- 
BEGIN EMI TLCATNDX)} EMITVCE) ENDS 


POE ERRCSOL IS & MESSING "OM 
END TASK ATTRIBUTE HANDLERS 
Nie IF @ 2 “8LIBER™ THEN 1 ELSE 
EE WEP ROCUM THEN 2 ELSE. 
IF @ @ "SCAUSE" THEN 4 ELSE 
IF Q = *SRESET" THEN 5 ELSE 03 
TENT EO THEN BEGTN TPCSTATEMENTOND 3° GO XXX ENDS 
IF Q = "7PROCE" THEN BEGIN PROCESSTATEMENTS GO XXX END? 
BEGIN & IF I4#2 [5S EVENT]D THEN | ‘ATs IPC WAIT 
EE TABLE UT OO IREVENTID THEN 
. BEGIN ITPCSTATEMENT(3)# GQ XXX ENDS 
Niet? Che2s 
-END-FLSE ¥-- 


"MIDOOO00", 
"SON00000", 
"REOO00000", 


*ABLEODOO, 


“Nep00000", 


WSEVENTM§” 


W4STZEO%, 
MOFASTOM, 


PORTO; *ASLONO TE — 
0¢T2000000000004050, COMMENT POWERS. OF EW ; 
0, COMMENT SORTA 3 
T-LASTSEQUENCEDZLASTSEOROW 3. 
692 STEP 3 UNTIL 728, 732 STEP 4 UNTIL 748, 750 STEP 2 UNTIL 756 
DO UNTIL STEPISBEGINV OR 8 
“ERCEASSHDECEARATORS AND ELBATIITSADDRESSEPROCVI'S TPC O9252025° ~~ 
IF ELCLASS#BEGINY THEN % COMPILE AN TNVOKABLE IPC PROGRAM, 


DO PRTcOsLJte= & 
TTF ELCEASS TSU TI OTAKECMARKSL ESL FI CLASS 


IF BOOARRAYIDSELCLASSSINTARRAYID THEN 4 ELSE 
Te BOOLEANTT VOl THEN G ELSE oO 
UNTIL LaNs 


IF FeFS THEN FLAG(564)— a MISSING Ae 


0€T2000000000100000, 
0€T2000000000100000, 


OCTZOOO0NDGODT 00000, 


06T2000000000100000r 
0670000000011100000. 
0€T2000000000T00000% 
0¢T2000000000100000% 
0¢6T2000000000100000, 


UCTZO0O0NVONDDNTONNDNNS 


0¢672000000000100012, 


TtETett-2 BACK UP TO LOOK -AT PROCEDURE: ~ 


wm EVENTID THEN f ELSE 


07766760 


07566775 
07766800 
07766825 
07766850 


OT766875 


07566900 
07766925 
05766950 
07566975 
07810200 


-OT8yorTO 


07810220 
07810230 
O7810280 
07810250 
07825000 


07825100" 


07625200 
07825300 


07625400 


371309214421 


2716092144290 - 


Z7LIOI!S]1L RAZZ 
R72209214424 
%72509214425 
B72B80921 4426 
273209214427 
%73609214426 


STROOVZIAALT” 


%74409214430 
%7480921443)3 


E7TS0092Z10N32°° 


475209214433 
E754 09214435 


RTS6- 09218830" 


%758 09214437 
%759 09214440 


E760 O9214R5~ 


09214513 
09252000 


09252100 
09252200 


09252400 
09405500 


— at oy - ~"F9R05505 
IF MARK HEREALCIPCJOB), 133ti5] DIV. 2#0 “THEN % INVOKED IPC 09405510 
IF TDARRAY [8] t@NtmTAKECMARK) # 0 THEN % HAS PARAMETERS 

BEGIN F BUILD PARAMETER DESCRIPTION SEGMENT 


09405515 


"09805520 © 


09405525 
09405530 


09405540 
09405545 


09405555 


092523000 


O9s0SS35° °° 


a ee sm en 09405550" ig Aion Rae eae iid gaara ececiseas nee 


_] 


14121 
-__—_—> 
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IDARRAY(C9) SsMOVEANDBLOCKCPRTa N41 )3 
a a reas ee ee ee ' END INVOKED IPC YOB3 
IDARRAYC2), £382] 82 2+REALCMARK#O)S 
_CONMENT SEGOT2], C381) = JAREC2),(06%1) = IPC JOB 
rrr rms sonmenns men een CE COTS L401) a JART2T,0791) = INVOKED IPC JOB} 
END IPC SET UP3 
. IF BOOARRAYIDSTYPESINTARRAYID OR TYPESTASKID THEN 
rrr rss ee TE ORORMALF ESPTOG) AND NOT P2 THEN 
BEGIN 
PJtsP jot? £ COUNT PARAMETERS 
“ADDRSFRBIF TPCJOB THEN GETSPAGECTRUE,12464xP) & PRT 
ELSE Pus & STACK 
END 
wan ne en ap 
IF STOPGSP THEN ADDRSF3#0 
ELSE ADDRSFPeGETSPACE(R2e1)3 
rrr mses === FEY BOUARRAY IDETYPESINTARRAVID OR TYPERTASKID AND NOT 1PCJ0B 
GTitazrr PTOG THEN If !PCJOB THEN LEVEL ELSE LEVELF ELSE LEVELS 
£ VOIn 13371001 
an PROCEDURE TASKED & DOES" TASK DECLARATION 
BEGIN 
LABEL EXITS 
JUMPCHKX? & 
IF GTA¢f£U"4]40 THEN FLAG(25)3 &% CANT USE OWN OR SAVE 
TYPEVSsTASKID3 
IF NOT SPECTOG THEN EMITOCMKS)3 
CENTRIC TYP EVID 3 DUES ALL OF THE LYST 
IF ELCLASS#SEMICOLON THEN FLAGCO)3 
If SPECTOG THEN GO FXIT? 
Sica ae ease ENT TECT IT ERTTEERTMICO IDI Z STZEe # OF MENSTONS, # TASK 
EMITPAIR(1e8SN)3 % ASK BLOCK CONTROL FOR SAVE TASK ARRAYS 
EMITV(5)5 % CALL BLOCK CONTROL 
See ere “EXTTtr- AN NE NRO RRS LA ee 
END TASK eu vhei 
IPCOMPLETEs*TASKDECeEVENTDEC, &® J PC 
errr nnn AE CTI ERR SE -BAD USE OF “AUXMEM OR STZE 
PTRDECsDEFINEDEC, AUXS1 ZERRe AUXSI TERR»: TASKDEC pEVENTDECS 
LPBar36'42)#e PUFLOB[1615)8, % 
SVOTDT TOT eS 00g oe i 
IF SPECTOG THEN & DOING A PROCEDURE SPECIFICATION 


eS SRE EIN 
FIeFZEROS & 31600" = F+0, PARAMETER BASE ADDRESS 


WHILE PJ#CIF IPCJOB THEN G,PYFLD ELSE G,ADDRESS) 


SI sd 8 ACTA 
IF IPCJYOB THEN 
G»PuFLDIRO & 
rere oman amin name ne na manne ate a tse ee re ee ee eee ena ae ee Ce ee ee ee ee TD 
IF TYPeVaFRMTID OR TYPEVMSUPERERMTID ° THEN 
GeADDRESSteFtmFe2 % LEAVE ONE FOR INDEX 


SS re eee a eee bf. i oe ise bes, 


IF BOOARRAYID $ TYPEV $ INTARRAY ID THEN 


IF BUPmPy THEN & ALL SPECIFICATIONS PROCESSED, DO CLEAN UP, 


PEEPLES PPA AE RONG RRP OR A RR POE PERCH: FA SEM RNR eT nA Ne arg @ALg Le Na A NL SR AR A 


09405560 
09405565 
09405570 
09405575 
09405580 
09405585 
13330550 
13342000 
13342250 
13342500 
13342750 
13343000 
13343500 
13349000 
13344500 
13345000 


13346000 


13170000 
13371000 
13595025 
13595050 
13595075 
13595100 
13595125 


13595150. 


13595175 
13595200 
13595225 


13595250" 


13595275 
13595300 
13595325 
13595350 
13595375 


1395954800 


13595425 
14016700 
14016800 
14021000 
14023000 


“‘LR069T99 | 


14870000 
14671000 


19072000" 


14873000 


DO BEGIN % LOOK THRU PARAMS LAST TO FIRST & PUT IN PROC+INFOL4074000 
TEBE STEN OTF EL BAT OF “LAST PARAM -SPECTFIED THOR SOOO: 


14076000 


DO GISTAKECBUP I eBUP@TAKE(BUP41), »PURPT IE z GET PJeTH ONE14077000 
 ¢HO7T8000 


14079000 
14081000 


OP ROBBOOT 


14083000 
14084000 


[4085000 


14086000 


141Zi 
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|) @ 


—> 


| 
| 
| 


BEGIN | 
GTyteNieTAKECBUP+T14&G, INCRE 


+ 


WHILE N&#eN-1#0 DO 
IF T2'sTAKECBUP4+T14N) < 9 THEN 
PUT CABSCT2ECARC FN 42 LPB) BUPFTTEND 
END 
ELSE G, ADDRESS tap tured 3 
“"PUTTGPBUPIT ST G,INCRTEGTIF Z UPDATE PARAMETER JNFO 
IF FWDT0G THEN 
BEGIN 
“TE CG TY Tae TAKECMARKSPJ)) -CLASS#G,CLASS THEN 
FLAGC4923 % CLASS ERROR FORWARD TO ACTUAL 
IF GT1. VORG, vo THEN FLAGCSOVE 
ee ee oe END _ 
ELSE 
ee ee ee ee ee PUTCGeMARK#PJ)s ® PROCEDURE ADDITIONAL INFO ENTRY 
UNTIL PusaPyeqe0s % 
SPEGTOGIEFALSES 
eee TR CO YPCIOB THEN & WRAP UP YPC SET UP & START COMPILE 
IPCOMPLETE! BEGIN 
d IPCJOBteBOOLEANC2XMARK)3 & FALSE ®@ POINTS TO + INFO 
eS i “TE-STEPT#BEGINV THEN FLAGC SSI ys Es 
Ebehicis, CLASS#§xSEMICOLON? . 
G0 TO STARTI & NOW WE CAN COMPILE THE IPC JOB 
get ee he ala at ate ~ENOT pia Pacer ee 
GO TO HFS g NOT [Pcs GO COMPILE THE PROCEDURE 
END SPECIFICATYON WRAP UP3 
MPYETGTALOC tee twEL Baty LT ADDRESS DEMONTTORV? 
ERRORTOG Iw TRUES 
If IPCJOB THEN & 
SPE CPOE FHEN- SE VERTEY THAT PROPER: TYPES “ARE BEING PASSED 
IF BOOV $ GteGTAic¢J) S INTV OR GARRAYV OR GeEVENTV THEN &% OK 
ELSE FLAG(550)3 & 
BOERS TERR rn 


| 
| 
| 
{ 


en tatim enmeARmn Ante mits steae matanmime ese 


ee nett neta gh npn ete 


TASKDEC 3 TASKE} GO To GOTSCHKI” 
EVENTDECS ParsTRUES ENTERCEVENTID)$ GO STARTS 
ee SCRTTERELBA TI : 
IF IPCJOB THEN % MAKE "MYSELF" TASK ARRAY ENTRY AT R¥O25_ 
BEGIN % 


PPE VERTASKIDS COUNTT ROS SCRAMTMTACTUME 1 JE@"EMYSEL™) MOD” 1251 


ACCUM 2] tw ORME 71438572 
Go DOLTTANYWAYS 
ee ee saat pa a a a am ot soe 
$ VOID 14305001 
If NOT {PCJOB THEN 
Sore ae ; se $4—THEN-LEVHODETEEVELTEbEVELSt TeMODE- ELSE FLAGCI9I3 
Jis ; 
$ VOID 14324001 


nn ESTE PLA SECRET THEN FLRGTOIO) £ WAS NOT IN PARAMETER LISTIOSHSO00° 


ELSE 
BEGIN 
ELATED IE aa a 


IF 1S¢IF 1PCJOB THEN a,Purkp ELSE G, ¢ ADDRESS )sPu THEN 


ELSE FLAGC19)3 & WAS NOT IN FORMAL PARAMETER LIST 


rr ese ree were esee yen ee lees Sanit te AS VAGUE PARAMETER: —18351000-— 


END % 


Te esemnenenaetannmnetemenaeretnoean ine edeamnenennenTammneredaemetonetit tr ear ee ee TT 


14087000 
14088000 


Tommy mene ree “GE ADDRESS taeFteFentene13 £gLEAVE ROOM FOR LOWER BOUND1 4089000 


14090000 
14091000 


16092000 


14093000 
14094000 


‘14095000 


14096000 
14097000 
14098000 
14999000 
14190000 


14101000 © 


14102000 
14193000 


143704000 


14105000 
14106000 


{4107000 


14108000 
14113000 
14114000 
14115000 
14116000 


14117000 


14118000 
14119000 


14429000" 


14130000 
14133100 


14433200 


14133300 
14133400 


“TaTy5500 


14155500 
14155700 


14192100 


14102200 
14302300 
14302400 
14302500 
14102600 


“TEIOSTOO: 


14305000 
14323000 


14323200 
14324000 


14346000 
14347000 


14348000° 


14349000 
14350000 


14352000 


9 @ 


—_ 


| 
Ey 
| 


a nn 


| 
| 
| 
! 
| 
{ 


$ VOID 14354001 
_ “IF TPCJOB AND PJeO THEN & 0 PARAM [PC PROCEDURE DEC 
GO TO JPCOMPLETE? & 
If SPECTOG THEN GO TO STARTS % AND PROCESS THE SPECIFICATIONS 
STEP TaFORWARDV OR QevBEXTERY ZF EXT ILLEGAL PARAM CK {N PROCESS 


IF EGCLASS # FORWARDV THEN & EXTERNAL 


BEGIN 


14353000 
14177000 
14178000 
14379000 
14467000 
14469025 
14469050 


“TE PROTNFO, CLASS # PROCID THEN FLAG(556) % MUST BE UNTYPE14469075 
ELSE PUTCTAKECPROINFOJ&EPCPROCID CLASS»PROINFO)3 


ENB & 
~—Enst 


$# PATCH NUMBER 411 FOR  XALGOL “CONTAINS 22 CARDS 
$1 THIS DOCUMENTS THE IPC ERROR MESSAGES, 1/5/73 


fake cake nm ees rr a 


555 


553 
So. 


——BEOCKT | 


’ SAVE OR AUXMEM APPEARS IMMEDIATELY 
BEFORE IDENTIFIER CNO TYPED, 


_IPCPROCEDUREDEC! AN IDENTIFIER OF THIS CLASS CAN NOT BE 


“PASSED TO AN INVOKED PROGRAM, © 


IPCPROCEDUREDEC! MISSING BEGIN AFTER SPECIFICATION PART, 


ACTUALBARAPART? THIS INTRINSIC CAN NOT BE PASSED AS A 


“FORMAL PARAMETER, 


PROCESSTATEMENT!S A TASK IDENTIFIER MAY NOT BE PASSED AS AN 


BIMPFUNS 


““BTMPFUNT 
IPCSTATEMENTS 


BLOCK? 


EXPLICIT PARAMETER TO AN INVOKED PROCEDURE, 


“PARAMETER MUST BEAN EVENT, | 

AN INVOKED PROCESS CAN NOT FIX OR FREE AN 
EVENT PASSED TO IT, 

MISSING COMMA’ IN ACQUIRE OR PEND FUNCTION, 
PARAMETER MUST BE AN EVENT, 

AN EXTERNAL IPC PROCEDURE MUST BE UNTYPED: 


I —— PROCESS TATEMENTY PROCEDURE MUST BE DECLARED EXTERNAL,” 
PROCESSTATEMENTE MISSING OR INCORRECT TASK PART, 
TASKATTRIBUTEHANDLER? MISSING , IN TASK ATTRIBUTE PART, 

~ FASKATIRIBGUTEHANDLERT MESSING OR UNDEFINED: TASK ATTRIBUTE, 
TASKATTRIBUTEHANDLER! TASK ATTRIBUTE IS NON ASSIGNABLE, 
TASKATTRIBUTEHANDLER? MISSING ASSIGNMENT OPERATOR IN TASK 


ener pap rt ye anmmmee 


A ea SPA OREN A Fete te Ym ITEQRNRINON EAE 


a 
| 


564 


563 
564 


nese “ATFTIRTBUTE ASSIGNMENT STATEMENT, - 


$# PATCH NUMBER 412 FOR XALGOL CONTAINS 8 CARDS 

$1 THIS PROVIDES THE "RUN" STATEMENT FOR IPC, ONLY VALUE PARAMETERS 
$4. AN-BE-PASSED-TO-PROCESSES “THAT: TS" "RUN", 3/19/73, 
PROCESSTATEMENT! PARAMETERS TO A "RUN" TASK MUST BE VALUE, 


565 


% AND 


| RUN ;yPCVALUEONLYPROCEDURE CAP 1» APQICTASKID]3 — 


TT BOOLEAN RUNNERT & SET TRUE” IF CALLED AS” A WRONG 


RUNNER E&Q, (42%6)803 % STH CHARACTER OF *"RUN® «& 0, PROCESS & E, 
iF RUNNER THEN FAULT( 565)? % ALL. RUN PARAMS MUST BE VALUE 


RUNNER TREN EMTTOTSSNIT EO “STARTUSERTASK USES’ * "FOR A FRUNY 
IF Qe*7PROCE* OR Qe*3RUNOO" THEN w IPC INITIATION 
BEGIN PROCESSTATEMENTS GO XXX ENDS 2% 


2 CRROS 


“FOR XALGOL CONTAINS | 

$1 MAKES TEMPORARY ASSIGNMENT FOR EXTERNAL PROCEDURE DECLARATIONS, 
$4 3/20/73 
ERT TE PRTT MAM TRPRT I MAX® 19 GTSOTSTT U8 8 REUSE PRT CELL 


BOOLEAN(*) AND NOT BOOLEANC2*PRTIMAX, £43:5))} 


$# PATCH NUMBER 414 FOR XALGOL CONTAINS 1 CARO 


—-$-+4--- 


. UP -ATTR BY 

“STOPDEFINE teTRUES STEPIT? & PICK UP ATT 

$# PATCH NUMBER 4 5 FOR XALGOL CONTAINS 6 CARDS 
FHTS—CHANGE- THAT -FHE-LEXTCOGRAPHTCAL LEVEL OF THE TASK ID 


FE NAME S37 2277 


on 
$1 IN A PROCESS STATEMENT IS NO LOWER THAN THE "DEEPEST" NAME 


 aeemaeumcarnenintnaraatenamrem 


incr A a pep RE RR AORN RAPE EPRI eee eA eA OAR yA FI RAR IR mm Samp, A IN 8 


BUTE NAME » NO DEFINES 


14469100 
14469125 
144691750 


00041000 
00042000 
00106900 


00306905 


00106910 
00106915 


00306920 


00306925 
00306930 
00306935 
00306940 
00306945 
00306950 
00106955 
00306960 


00306965 ~ 


00306970 
00306975 
00306980 
00306985 
00306990 


00306995 


00307000 


07765035 


07565050 | 


07565135 
07565435 


(07565815 — 


07610245 


ee car xs 


14469110 
14469115 


07566425 


000606010 
00000020 


a ee ee ee ee eter 


| @ 


—> 


erp sap tt pen One a ce On ae met eee ene eee gee ine een cep ered are 


_St PARAMETER IN AN INVOKATION, 8/4/73 OHB 
566 PROCESSTATEWENT?® LEXICAL LEVEL OF TASK LESS THAN A NAME PARAM, 
INTEGER NeMARKsPCNT»MAXLVLS & 
IF STEPT ¢ T,CLASS THEN FAULT(123)% % WRONG TYPE 
SSS a EL BAT ED) LVL > MAXLVL THEN MAXLVLI®E,LVLE & 
IF CESMELBATCIJ) LVL «< MAXLVL AND MAXLVL > QO THEN FAULT(556)3 & 
EMITPATRCEsLOD)E & 
SEPA TCH NUMBER S16 FOR XALGOL CONTAINS 4 CARDS 


| 
| 
| 
| 


00000030 
00307005 
07765075 
07565450 


075654865 


07565635 
07565850 


$1 THrS CHANGE INSURES THAT AN [PC PROCEDURE 1S NOT coNP Tes TO "GO" AND00000010 


$! CHECKS To SEE THAT NO MORE THAN 29 PARAMETERS ARE ALLOWED IN AN 
—~—ST TFC PROCEDURE DECLARATION, CSEE HCP PATCH 708) 874773 DHB™ 
567 PROGRAM! COMPILE AND GO OF INVOKED yPc PROCEDURE NOT ALLOWED, 
568 Presid AN INVOKED IPC PROCEDURE CAN HAVE ONLY 29 PARAMETERS, 
IF “1PCJOB THEN IF PJ > 29 THEN FLAG(568)3 ®% TOO MANY PARAMETERS 
$# PATCH NUMBER 417 FOR XALGOL CONTAINS 5 CARDS 
et 


$t IF IT ORIGINATED FROM THE STATION ‘WITH THE INDICATED INTERNAL LINE 
nn PAA BER GS TV DIST SDH” 
If @ = "7STACK™ THEN 4& ELSE 
If Qs MOINITIS THEN 5 ELSE 
-).) a Sa rf 
= 582 2% 
EMITLC6)2 EMITLOC193 EMITLCOGTAYLCOJ)3 & SIZE # DIMISIONS» # TASK 
<< SE PATCH NUMBER 418° FOR XALGOL CONTAINS 2° CARDS 
$t THIS PROVIDES AN INDEXED ARRAY ROW WRITE OF THE FORMS 
$t WRITECFIELeAEXPeARRYCINDXI)3 
TTT ee ——STTT TS" THE USERS RESPONSIBILITY TO INSURE “THAT “AEXP*INDX DOES NOT 
$i EXCEED THE ARRAY BOUNDS, 11/24/7o 
omeaior & (LOCAL PATCH LEVEL 
ae eine cae neh REN AN tn s- VO ID 0667 200T el abn i iid a “eile oak a Da ga eb tgds 
$# PATCH NUMBER 419 FOR XALGOL CONTAINS 5 CARDS 
$§ THyS PROVIDES THE CAPABILITY TO PROGRAMATICALLY GENERATE A MEMORY 
SE TN AGO OR KAL GOL BY THE “STATEMENTY 9 1795773 
$ho DUMPNOWC INTEGER) 3 
eMmari" £ LOCAL PATCH LEVEL 1/15/73 DHB 
moore cerns meg PR at a EE BUM PN OWE HE MEMORY DUMP 
BEGIN PANA$ EMITL (0)3 EMITPAIR(48sCOM)3 & 
EMITOCDEL)S EMITOCDEL ID GO Fo. OO Ls 


11/24/72 


in 


“ENDS &~ 
S# PATCH NUMBER 420 FOR XALGOL,XV,1 CONTAINS 62 CARDS 


ARRAY XREFAY4(0340)> XREFAY2(0129) eX INFOCOE31008 42735 % FOR XREF ONLY 
INTEGER XREFPT #XLUNi % 
LOY DIN STE Sr ee ie 


ARRAY BEGINSTACKLO831)3 INTEGER BSPOINT? % FOR BEND 
BOOLEAN DEFININGS & BEND ~ me op S 
$ VOINT 01007654 
STREAM PROCEDURE STUFFCLVL»NeL)s VALUE LVL,NS 
OT RL DS TER LIT OOS STW DSTRYT WOST Ol seo ear 


00800020 
00600030 
00307010 
00307015 


TE -SAVETIMESO THEN BEGIN ERRORTOGtSETRUES FLAGCSOT) ENDIZGO WHERE O9252250 


14335000 


TRHYS ABOS A WEH- TASK-ATTRIBUTE—" INITIATOR WHICH CAN BE SET AND READ, 00000010 
Si TF "INIT PATOR® 1S NON ZERO WHEN A TASK 4S ENITIATED IT WELL APPEAR A$00000020 


00000030 
00000040 
07566575 
07566580 
07766599 
07766600 
13595325 


00000010 
00000020 


00000030 


00000040 
01831100 


08666000 


01831100 


(07810500 


07810525 
07610550 


OTB 0STS © 


$1 THIS MAKES” EFFICIENCY IMPROVEMENTS: TO THE XREF AND BEND PATCH 7/29/7300800040 
s-votot “OpoorTTsO” 


01002000 
01002100 


” -Or00vz200°° ven aie see we me te fm ee em mem ne 
XMARK@ IF XREF THEN XREFAYDEXREFPT@1} baNABS(#) #9 % MARK - ASSIGNMENTO1002300 


01002400 


“OToozZ500 


01007100 
02196530 


“O2T96550°5° 


DStwLyTres SpialLOc LVLS DSte2 pECe OStaLIT"I"s OS9e8 0ECI02196560 


STUFF CBSPOINT»BEGINSTACKEBSPOINT) »LINI? 
“BEGIN: SHITCHTTCXREFBYTI7-—-GO-AGAIN' “ENDS” 
$ VOID 02419121 


I AL EI NN NA ER RE Sp RS yA HEE Sc RE SGM AURIS SE Ht a RE HAE OA ep anPHG bw eegtaneny pte Meant ope testi 


02196580 
02419110 


8) 


IF NOT ENDTOG THEN % DONT XREF COMMENTS FOLLOWING END 
“TROT, T35tLT37 > «5S | «SORTA THEN % NOT "ALGOL™ IDENTIFIER 

PTOG##TRUES’ %& DONT XREF THESE THINGS 

PTOGH*FALSES % 


— 
| 
t 
| 
i 
| 
i 


_IF XREF THEN &% DONT XREF SECOND DEC OF SAME VAR 


ENDS & 
OEFINING#®TRUES % WE ARE 
~~ “TF XREF THEN % DONT COUNT THYS AS AN OCCURANCE 
XREFPTSaXREFPTeREALCELBATCIJ ¢LVL#023 % IF SEEN B4 


Se rere Geren DEF ININGTEFALSES X% WE ARE NOT 
IF XREF THEN & FORGET THE PARAMETERS SPECIFED IN A FORWARD 
_TF GisTAKECMARK) > O THEN % OR EXTERNAL DECLARATION 
Re ane ae a “BEGIN SPATECDSK1 2 *G73 XLUNTEXLUNe®G END? 
IF XLUN > 0 AND ERRORCOUNT » O THEN & WE DID SOME XREFFING SO DOITTOIT 
tF NOT NOHEADING THEN WRITECLINECPAGE))3 DATIMES 
~$S-VOTDT: 17055552" 
STREAM PROCEDURE PUP(S,.D)3 
BEGIN 
a page Pe eg “STVES7T DI reds 
GO6cIF SCenr * THEN JUMP ‘ours DSteCHR)3 
“ DStw1OLIT 3 SyteSs SyywS14323 SyteS14+283 & TO SEG NUM 
omnmrrmnrrs  mrererennns oe mn DSTBACHRE DStSSLTT" es DStRBCHRE DSseLI Tear; 


| 
: 


ENDS 
DEFINE BLANKCP) = BLANKET(14sP)#> 
nn PRT i” 
: $ VOID 17069999 
(DO BEGIN 
Foe get gree cen “TF XREFPTVeXREFPT4+1%30 THEN 
BEGIN 
READ(DSK2e30sXREFAY2E*J CE OF IS 
ee eee ae ahs 
: END: 


| 
| 


om AT 
‘UNTIL 1,£9%12] GTR OF & DONT SORT NON XREFED ENTRIES 
BLANK(PAY)3 
rn nnn EE STAD DRESS NEGO LASTADDRESSTRATO} THEN & NEW OCCURANCE 
IF LASTADORESS,¢9#12) GTR XREFAy1¢9] THEN 
BLANK (PAY) 5 XREFPT§ 20 
a “T7100101 eae Ge eeu Ata tsee Ge Sateen Gane 
BhANK(PAY)3 


SSR C2 | aaa a ce 
BLANK(PAY)3 
$# PATCH NUMBER 421 FOR XALGOL CONTAINS 287 CaRpS 
—S4-FHTS TMP LEMENTS THE BOTOO "INCLUDE 8° CARD OPTION AND” DE TMPLEMENTS~ 
$1 THE "CAST® LIBRARY COMPILER FEATURE, IN ADDITION THIS MAKES SEVERAL 
$1 PMPROVENENTS TO THE READACARD ROUTINE, THE HANDELING OF VOyD CARDS 


$1 ELIMINATED, THIS LAST CHANGE MAKES 9S CARDS OPTIONAL ON BOTH THE 
$1 CARD AND TAPE FILES, 


$ VOIDT 00305064 


WEOF-NO-LABELY PROBLEM IN THE COMPILER 1S 7 > 


—-$T-NOVERBER ZOU 1973, Se DAVE BROWN” S#” “U, Se CUSTOMS” SANDIEGO” CA 


Ts aanreehaeh neat aan emcananeeane meenendl asinanmacmsathenme restr aneataininnteimemeioebamionmentetnnneendianemenaneenneatean eee ee es 


02882050 
02882200 
05442500 
05443500 


—_ i ioe . IF XREF THEN ¥ DONT COUNT THIS OCCURANCE [F102648802 
_ XREFPTOXREFPT®REALCELBATL1¢LVLA09# 3SEEN B410264804 


13348000 


“XREFPTVEXREFPT@REALCLEVELF#0)3 & GET RID OF LAST XREF13348100 


13348200 
14255500 


“14259077 


14259076 


PTOGaeTRUES E3 PTOGH@FALSES % DONT XREF DEFINE PARAMS18259096 


14268500 
14470900 
14470910 


14470920 


17001000 
17002520 
17047004 
17048000 
17049000 


179050000 


17051000 
17052000 
17053000 
17054000 
17063000 
17064000 
17065000 
17073500 
17074000 
17075000 
17076000 
17077000 
17078000 


IF CTimyREFAY2CXREFPTI2, £21927 1299999999 THEN GO TO EOF 317079000 


17079250 
17079500 
17083000 


— TTOseE {00 


17095100 
17099000 


17100000 | 


17191000 


PUP2(LASTADDRESS LSS O»+LASTADDORESS, C21427)6 XREFPTs PAY(13)417103000 
cee “ “Y7TATOSOIO 


17103500 
00000020 


“Q00000TO”° oFy 


00000020 
00000030 


vooNN0RO 


00000050 
00800060 


00000070 = 


00305010 


e 
eA 
‘al 615 READACARD! UNEXPECTED END OF INPUT, 
TT GAO STRRTINCLUDINGT NESTED INCLUDES NOT IMPLEMENTED, 
621 STARTINCLUOING: FIRST INCLUDE CARD MUST NAME A FILE, 
622 STARTINCLUDING? ILLEGAL FILE IDENTIFIER, 
Tem GBT SEARTENCLUDING TELE GAL SEQUENCE NUMBER ON INCLUDE” CARD, 
624 STARTINCLUDING! FILE MUST HAVE BEEN USED BEFORE FOR * OPTION, 
625 STARTINCLUDING! BAD SYNTAX ON THIS INCLUDE CARD, 
TS ZS” “STARTTNCLUDINGS YOUR INCLUDE FILE IS NOT ON DISK,” 
627 STARTINCLUDING! BEGINNING SEQUENCE NUMBER JS NOT IN THE FILE, 
INTEGER ADDVALUEsTOTALNOS & 
Te TOT UToors2r 
$ VOIDT 


THE LAST CHARACTER IN THE TAPE AND CARD BUFFERS, i 
OO OE 
0 INCLUDE IN PROCESS, 
> 3 ELABORATING A DEFINEs 
BVO HT ULSIE20f aren 
SAVE ARRAY DEFINEARRAY(0125)3 ¥ O83xXCMAX NEST behruyst-: (SEE 1498100) 
DEFINE LASTSE® m DEFINEARRAY(25}3#. % TEMP STORAGE FOR SE@ OF CARD 
ee ee LSEGM{ —# DEFINEARRAY( 243%», & FOR CALLING CONV ~ 
LASTERR « DEFINEARRAY(24)#3 % HOLDS SEQ NO OF LAST ERROR 
FILE INCLUDE DISK SERTAL Cte 10015003 
SHOT OT SET OTE 
FILE OSK1 DISK SERIAL 1201300) (211003091 % FOR XREF 
FILE OSK2 DISK SERIAL £201300) (2203023023 % FOR XREF 
ce aac SAVE-ARRAY-CBUF ES TBUFF eI BUFFIONOIS: ¥ INPUT BUFFERS 
$ VOIpT 01561454 
$ VOINT 01576005 
$ VOInDT 01784004 
INTEGER SAVLASTUSEDsILCRS & FOR INCLUDE 
RE RE TNE ECR TNC ERANGED FF ER INCLUDE OPTION - : 
e413" % LOCAL PATCH LEVEL 11/20/73 DHE 


igs 


Moore OUSINess TUrms, Int. sv 


. 


$ VOIpT 02001644 
“—-$ VYOTHT O20 Tr3sTer Suites. see ee. ak Spied . : : : 
BOOLEAN: PROCEDURE STARTINCLUDINGS FORWARDS x 
BOOLEAN PROCEDURE READINCLUDES FORWARDS % 
—S Ss Von Cetssser t ate 


PROCEDURE WRITEBINE? &% 
IF SINGLTOG THEN WRYTECLINEs 15eLINC*)) & 
TT LSE WRYITECUINETDBL Te LSS LINTE III F 
$ VOIpT 02182254 

DEFINE PRINTCARD =» BEGIN & 
aE EE MS SEE EOT SYMBOL “ST URST ETE 

DStsCHRS OSta2L1T" 3 

SWITCH SWEsbCARDeLCARDeLTAPE? & 

mn RE MER TT POT ANG -O THEN “FOTALNOTSABSCTOTALNOT © £ 


cin nape 


$ VOtpT 92193004 
nn CHANGE SEQATCARONUMBERS LCRIF 
IF LASTUSED > 0 OR NEWINCL THEN 
IF SAVLASTUSED#3 THEN GO Te LTAPED x INCLUDE CARD WAS ON TAPE | 
DEFINE. “SEQCOMPARECTLCR»CLCR? « £ 
$ VorpT 02203004 


L@RtaTLCR; LASTUSEDIw3} 


! 
| 
I 


00415000 
00420000 
00421000 
00422000 


00423000 - 


00424000 
00425000 
00426000 
00427000 
01000860 


04001490 


01331000 
01336000 
01337000 
01394700 
01398000 
04396100 
01491000 
01498100 
04498200 
01498300 
01561010 


01561011 


01561025 
01561050 


01561056 


01561065 
01575000 


01762200 


01756000 
01783000 


01788000 


01831100 
02001010 


“O2013010 


02065700 
02065800 


O2131500 


02181000 
02181250 


OZ187T500 


02181750 
02162500 


“021835250 


02185500 
02191250 


~ 02492000" 
ELSE TOTALNOSMTOTALNOSADDVALUE 102192250 


02192500 


O2193250 


02193600 
02194600 


02198500" - 


02202500 
02202750 


02203290 Sina alot ited Seashore ss. <tieac yin lt Ne ic Sai Sareea. © WE Mouie, Sininan Kiel < eed apse net alee» ero oh ag afk call 


02204000 


# @ 


| 


oe MED T UM EO T OD FROM TAPE 
| “MEDIUNFs"P%; ¥ CARD PATCHES TAPE 
LASTUSED%#33 &% IN CASE OF EOF ON TAPE 
READCTAPEs10eTBUFFC*) CF OF )3 
gti eee tes —s-yoTHT O2208S0p oT 
LASTUSED? #23 
#, % END SEQCOMPARE DEFINE 
mmm DPT NCLUDESREAL (DOLL ARTOGY#™H"ES 
LABEL USE THE SWI TCH»CARDONLY»sCARDLAST »EOF e TAPELAST eCOMPARSEXITsXITB 
BOOLEAN DOLLARA@TOGS & 
ee Eo TT aa oa VOTpT C227 {28 tebe ey inte 7 a “ee 
IF LASTUSEDs1 THEN GO TO CARDONLYD % 
IF LASTUSED®3 THEN GO TO TAPELASTS 3% 
TF CASTUSEDEZ THEN GO TO CARDLAST3 &% 
IF LASTUSED®O THEN & INCLUDE 
IF READINCLUDE THEN GO USETHESWITCH ELSE GO EXITS % 
— ® VOTHT C227 s00T : 
LORHECLORE & 
$ VOIDT 
"RF ADUTARD s 10, CBUFFiES) FEOF I 
IF LASTUSEDe, THEN GO TO EXITS & CARD ONLY 
IF LASTUSED=1 THEN & EOF ON CARD MEANS BYE@BYE 
| “BEGIN ERRORTOGTSTRUEF ERRC6IS) ENDS ¥ BRANCHES TO ENDOFITALL 
IF LASTUSED=3 THEN & FOF ON TAPE = SWITCH TO CARD ONLY 
BEGIN LCRESCLCRS LASTUSED#a1$ MEDIUMParC™;, GO EXIT END? 
“FE TOL CBUFFT S&S) WITH GU" END@OF", "FILE #8), "COMPILER™,999999999"3 
$ VOIpT 02218404 
$ VOIpT 02219004 
Treen ens enn RAI CTAP ES TOT TRUFFLE] VCEOF TS 
te § VOIpT 02224004 
ne SEQCOMPARECTLCR»CLCRIS 
ein antenee a: a ¥¢Cint 5 eee, 
£ VOIoT 
IF COMPARECMKABSCLASTSEQ),» LCR) #1 THEN x 
Se ge PUFISEGNOCEASTSE RQ ECRIT- Bom 
CARDNUMBERS @CONVCLSFOM12508)3 & 
; NCRISNCR4+32768;3 & OVER: nae (CHAR MODE POINTER) 
ne tenn en EE REFER pr Bore 
IF NOT DIDINCLUDE THEN & 
IF LISTPTOG OR PRYNTDOLLARTOG THEN PRINTCARD3 
oe Co ee ee EXAM ING FCRE32768 205" THEN 
i?) 
. $ VOIDT 
RN CRETE TOO TIT OOF SOVER * S*° (CHAR MODE POINTER) 
IF DIDINCLUDE THEN GO USETHESWITCH? g 
$ VOIDT 02235254 


RRL YEE RAM Ae ese SmaI FM a mA mE RMN em Om 


| 
| 
{ 
i 
| 
ft 
! 


i 
| 
| 
i 
{ 


CARDCOUNTtaCARDCOUNT+13 
If OMITTING OR & 
SOLE RRATRG THEN GO" USETHESHITCHS 
VOInT 
OPTIONSTOPINX+1 J #@REALCBtaTRUEDS La 


a ee AE anes iY HA em ee em nee ee 


02204250 
02205500 
02205750 
02206000 
02206250 
02209250 
02209750 
02210000 
02210250 
02210500 
02210750 
02212000 
02212025 
02212050 
02212100 
02212200 


92213500 


02215500 
02215750 
02216250 
02216500 
02217250 
O2217275 
02217500 
02217750 
02218000 
02218250 
02218750 


‘O2219500 


02219750 
02724500 


02224750 


02225500 
02226000 


‘02226000 


02228100 
02228750 
02229000 
02229200 
02229250 
02230000 
02230100 
02230500 


“02230750 — 


02231100 
02234251 


"02234500" 


02234750 
02735000 


02235250" 


02235500 
02334000 


“02355000 


902339000 
02353000 


02356500 


02358000 


t41Zi 


Moore DUSINESS Forms, Inc. SV 


f 
| 


STREAM PROCEDURE GETVOIDCVPeNCR» VReLCReSEQ)s VALUE NCReLCR3 


€)| @ 


BEGIN 
i: “CABELL Gy TRANSIT ae 
r) STteNCRs OD] teVPs OSse8B LIT *0%3 
2c34CIF SCe™ " THEN StseSI#1 ELSE JUMP OUT pe TO L))! 
SEF ESEQT NCREMSTS TALL YVHOT GO-TRANS! 2 USE SEQ NO OF THIS CARD 
Lt 
e IF SCanen THEN 
egg 
e SlexSloy3 Didetay Reicar iphease - % STOPPER FOR SCAN 
NCRiwS]3 & TEMP, STORAGEs SINCE NCR 1s "LOCAL™ To GETVOID, 
SCTE SURO Y THEN JUMP OUT ELSE 0° 
gS BEGIN TALLYS"TALLY4#13 SIs*eSiet END)3 
END 
a ESE BEG TING ESO eg ee 
e eres % TEMP, STORAGE, SINCE. NOR 18 MLOCAL™ TO DeERVOISs 
DItsLcRs pSts1 LyT* "3 & STOPPER FOR SCAND 
OTT E SCR FO THEN JUMP OUT ELSE PSN ara 
e BEGIN TALLY#eTALLY413) SlisSre1 ENODS 
; ENDS 
4 RNS Pe ee teeyeeei 
e SytaNCRs DyptawVP3 reer % ABS TORE POINTERS, 
NCRISTALLYS DISSDI@NCRE DSt=NCR CHR3 
owe ae OPTaDT 8s VP teOTs & TE MLOC VP teNpT 
® DrtevRs Syteioc VPs DStmWDSIS ADDRESS | OF youb: RANGE. 
END OF GETVQID3 
$$ —~ DOLLARTOGTEDOLLAR TOG OR“ TRUES g 
e $ VOrpT 
GETVOTDCVOIDPLACE, NCR» VOIDCR, LCR» LASTSEQ)3 % 
rns Oe 2: 2 ae sa: sa: omdeen yg ena 
e IF TLOR = 0 THEN & FIRST TIME ONLY 
mee _TWCRt mMKABSCTBUFF[9})3 
ans ia a0 6) he ta Sl lead aa ob ae at hoe 
@ GETVOIDCVOLDPLACEs NCR»VOLDCR»LCR*LASTSEQ)) % 
$ VOIDT 
eR ao ——~T FOR ro FFE PHENO Boo ee 
@ BEGIN DOLLARTOG!mSTARTINCLUDINGS 60 EXqT Suni 
If QO = "“7INCLN™ THEN & 
TT BEGIN SH FE CH TPE CNEW INCE BI FI GO AGAIN END? Bo cm 
e TOTALNOS mC CONVCACCUML1E 350, COUNT 413 
$ VOTDT 02583004 
CHANCE SES CRRONUMBE RSL CRIT S RESTORE SEO FIELD FOR “VOTORANGE CHECKS” 
& DOLLARTOGESDOLLARTOG AND NOT TRUES & 
CROSSHATCHS 3% 
TT I I re i AREA SER OSS HATCHES" 
Ph DOLLARCARD3 
§ vee 027 36004 
: Room ae te i ec 
r $ vOIpT 02999999 
BOOLEAN PROCEDURE READINCLUDE? 
@ LABEL EOFF & : 
beR tei Lcrs cA bela baba 
STBOUPFU*IITEGR II Ce eee 
e 1F COMPARECILCR»INCLCRI@! THEN & THIS CARD eure4 OF RANGE 
EOF IBEGIN . 
a MEDTUMT ETCH Ss” - TN CASE “OF-CARD ONLY 
® READINCLUDE t=TRUES 


irank rar an nc mame ere memati cmmenmene gurnecor aman tomate pcamedeaamemencenmmenes armen arian eee eer eee 


02359100 
023591325 
02359150 
02359175 
02359200 
02359225 
02359250 
02359275 


02359300 


02359325 
02359350 


— 02359375 


02359400 
02359425 


02359450" 


02359475 
02359500 
02359525 
02359550 
02359575 
02359600 
02359625 
02359650 


(02359675 


02359700 
02359725 
02366000 
02368000 
02410000 


| O2aT 1000 


02439000 
02456000 


02485000 
02486000 


— 02570000 — 
02571000 © 


02572000 


02573000° 


02581000 
02582000 


02602600 


02603000 
02640000 


02530000 
02732000 


02985001 
02986000 


"02966100 


02986200 
02986300 


02986500 


02986600 


Oz986T00 
02986800 


O24658000 


02082000 


“OZ90TI0D 


~-On986N00-" 


) @ 


—> 


eaten maattneneepei a teak 


BLANKERCOsLASTSEQ)3 % 

Tees CLOSETINCLUDED3 © 

END3 

END READINCLUDES 
Tom BOOLEAN PROCEDURE START YNCLUDING! 
BEGIN 

LABEL AWAY s THRU} 
commer "REALU FIRST STI INTEGER To JeK3 

BOOLEAN SVNEWTOG3 

DEFINE FLAGITCE)=BEGIN FLAGCE)$ GO AWAY ENDi, 
TE ITNDEYIRSTHESVNEWTOG#E® MAXReET#s NEWaP I RST #3 

IF OMITTING THEN GO AWAY? 

IF VOIDING OR VOJDTAPE THEN 
mores mmennns mms TE COMPARE CMKABS CLASTSEQ),VOIDCRIs0 THEN & 

IF VOIDTAPE AND LASTUSED#®3 OR NOT VO]DTAPE THEN GO AWAY? 

CHANGE SEQ(CARDNUMBERs LCR)? % RESTORE FOR LIST 
ee ee ~~ SYUNEWT OG TENEWTOGI~ . 

NEWTOG#e&NEWNTOG AND NOT NEWINCLS 

OUTPUTSOURCES CARDCOUNTS mCARDCOUNT +15 x 
To mrnnrnmemen « eneemennn MEQ GT RESVNEWTOG I 

TURNONSTOPLIGHTC"'&",LCRI3 & FOR SCANNING 

_ STARTINCLUDING § sBOOLEANC TH") % TELL READACARD WE DID OUR THING 
nn LTP OCASTUSEDTO~ THEN FLAGIT (62033 °% CANT NEST THEM 

SKANS 


02986900 
02987000 
02987100 
02987200 
02987300 
02987400 
02987500 
02987600 
02987700 
02987800 


— 02987900 


02988000 
02988100 
02988200 
02988300 
02988400 
02988500 
02988600 
02986700 
02988800 
02988900 
02989000 


‘02989100 


02989200 


IF SAVLASTUSEDs0 AND RESULT#1 THEN FLAGIT¢( 62128 & MUST NAME IT FIRSTO2989300 


pd ey ee tg re RESULTS tT HEN “Zz FI LE ID | 
BEGIN 
1F COUNT > 7 THEN FLAGIT(622)3 
rr renner TE A enn AEB” OE CHARACTERS (COUNTS ACCUMEE Js 3eTe td} 
IF INCLUDE, MFIO#T THEN INCLUDE, MFIDtaNEWiaTS 
SKAN3 IF RESULTs2 THEN SKAN3 
Soe mtn nares fa ESAT EET OR COUNT 2-7 THEN FLAGIT (62292 


Ttat "3 MOVECHARACTERSCCOUNT »ACCUME 1) 6 30T21)3 
IF INCLUDE, FIDET THEN INCLUDE SFIDSeNEW Sets 
nO ne ee a ““SKAN - 


ENDS 
; INCLRANGE!*299999990"%) FINDFIRSTISFALSES 
nn tee RESET ES THEN Z NUMBER TS STARTING NUMBER: 
BEGIN 
_ FINDFIRST#eTRUES FIRST$=03 
rrr creme on RA EF BET EN EL AGT TCOZI II 
OMOVECHARACTERS CCOUNT, AOCUINES yedaRTROTAGSCOUNTI: 
THRUE SKAN? 
rn Sw OOOO OR OEM DTOOOOT THEN ~ 
BEGIN ® THRU SPECIFIER 
SKAN3 
rn err ERE SH FES OR COUNT > OO THEN FLAGETCOS3I FS BAD NUMBER 
INCLRANGE S803 
MOVECHARACTERS( COUNTS ACCUMEL J» 3, INCLRANGE s8@COUNT)I 
(cin lean eaten ah lh, a Mo erm ~SKANT cpus eee 
ENQS 


ee ee Ye mame ap An In RNR Ae He sem 


IF Qnm1 20009" THEN x START WERE WE beet OFF 
E BEGIN 
a nnrnrnrnnrm rennin me ae ee MED STUSENEO OR NEWHO THEN FLAGTTT624)1 —° 
MOVECLe IBUFFL9O}sFIRSTIS FINDEFIRST&e TRUE? 


a A RE RO ET EP 9 en AN ARB HN Ope mE aR VI RE PIANO A 


02989400 
02989500 
02989600 


02989700 


02989800 
02989900 
02990000 


02990100 


02990200 
02990300 
02990400 
02990500 
02990600 
02990700 
02990800 
02990900 
02991000 
02993100 


~ 0299T200 


02991300 
02991400 


02991500 


02991600 
02991700 
02991800 
02991900 
02992000 


—OR99IZ100 


02992200 
02992300 


02992400 


02992500 


14127 


Moore Business Forms, tnc. sv 


@] @ 


GO TO THRU3 & AND GET = SEG@ NO 02992600 
END} 02992700 
<a TOT Ee TEM ZOOOOH OR -XMODEEO THEN FLAGITC625)3; x BAD SYNTAX 029928600 
“| ILCRtaMKABS( BUFF C93)3 02992900 
SEARCHC INCLUDE, [BUFF ¥})3 02993000 
~~ TE MAAR THTBOF FOS ITe1- SO THEN FLAGI1¢62628 & FILE NOT ON DTSK 02993100 
e IF FINDFIRS® THEN % BINARY SEARCH FOR FIRST RECORD 02993200 
BEGIN 02993300 
memes em ENCLORVEMKABSCFIRST II ‘ 029934800 
e KtmMAXReJ1e43 02993500 
WHILE J < K DO JtedeJ) Ite DIV 23 02993600 
EEO E SS tare ey es : “FOR KVST*{ STEP TF J#0 THEN I ELSE #7 . 02993700 
) WHILE I > 0 DO 02993800 
BEGIN 02993900 
eee eT Pear a “TR KO?" MAYR THEN dled ELSE 02999000 | 
@ BEGIN 02994200 
READCINCLUDECK]s10-¢1BUFFL*))3 02994300 
Sp te PNR Ig Oe nae Mig Tage apes eeede nt Eager gale JVatOMPARECILECRSINCLER) 3; | ~ 039994400 
e END? 02994500 
TtelF Mae _THEN 0 ELSE dt OV 23 02994600 
Pn mengg OO “ENDS 02994700 
e IF J#2 THEN BEGIN CLOSECINCLUDE)’ FLAGIT(C627) END’ & NOT THERE 02994800 
END3 02994900 
SAVCASTUSEDTaLASTUSED) LASTUSENts0% % WE ARE INCLUDING 02995000 
r) INCLCRtaMKABSCTNCLRANGE)3 02995100 
BLANKET (Os yLASTSEQIE % 02995200 
re 1 1's. oa 2995300 
@ a STARTINCLUDING$ 02995400 
03000000 
Seay erase COMMENT HERE EEEAE EE EEOEESELEEEEES ERE EEEGEEGESESEEES EEE EES EEL EEE EE EEEEO 3000100 
) FORWARD DECLARATIONS 03000200 
ROREREEEREERERERESRERERSSSELIELS ERED ERAS SOLES ERE EL EEEEESE LEE EEEEEEEEL 103000300 
Fe a ee On ee —— “MOVECTREASTSE@sLINE123)1 05039500 
@ WRITERRORCREMOTOGseERRNUMSACCUME A J ob INo@,01286) sLASTSEQ) $ 05044000 
$ VOrpT 05045000 
MOVE CL OL ASTSEQDSPNCHT IIIT BOO 05058000 
@ IF ERRNUMme499 OR rere OR % 05107300 
ERRNUM#®611 OR ERRNUM@6t5 THEN GO To ENDOFITALLE 05107200 
eee pe ™ >. "“PASTUSED S14 -X CARD ONLY © 07030000 
) TOTMLNDNS Se] ADDVATULI © 0G0)) 09028920 
§ VorpT 09029000 
eT SS WEXTING OF RLASTING OFBSORTAFIS . O903T000 
e BLANKETC1+LASTERR)S & BLANK LASTERR AND LASTSEQ 09034500 
MEDIUMs ately Se % ASSUME CARD UNTIL TOLD DIFFERE09035000 
meee eC MCRITEMKARSCCBUFFIOITT B° “09076000 
e READACARD; % READ FIRST CARD AND OPEN FILES 09037000 
NEXTINFO!SLASTINFOSSSORTAGID 09214980 
Ee eS NOT OF eT sae re ey tS O927TS100 
e MOVECHARACTERS (As LASTERR» 00GT ie re % 09415000 
MOVECHARACTERSC4»LASTERR» AeGT2ea)s a 09416000 
—EVNOTDT 09426001 re - “eee 3% a 09821000 — 
e ERROR(499)3 & GOES TO ENDOFITALL 13112500 
TIMELS@aTIMEC1)3; & BOU TIME 17000000 
ee Sey a ona ——~“GETREABYT F-READY— SET rr GO - 7 7000 T00 
e BLOCKCRALSED: £ 17800200 
ENDOFTTALLS 17000300 
, A Lem AL, |e mem nae eee so ne 1m. ere ee ee ee ee eee ae re a eT) ‘ii Shia Mane cutie jes a Pratt, alate hae gy ee —~f7000800°°"- ev i 
e $# PATCH NUMBER 422 FOR Waceoe CONTAINS 22 CARDS 
@ 


| @ 


—_— 


ues 


eed 


WIVUET WUD 


FE VOTO T UZILTOB0L 


_$t _THrS PROVIDES A BEGIN * END MATCH UP AS ON THE iets DHB 11/13/73 


“INTEGER NEWBEGCTSOLHBEGCTY ¥ To MATCH BEGINS = ENDS 
$ Volo 
EDITLENECLINeFCReABSCOLDBEGCT) ol, £36110) +MEDIUMSOMITTING)S 


STREAM PROCEDURE EDITLINE CLINE TNCRI BENDORISYMBOLPOMIT YS 


VALUE NCReBENDsRe SYMBOLS OMITS 
DSe*®LIT" "s NCRIFOTs Dead 7173 


en SEER OT BEND DSTES DECT DIVSDT Sy DSt!4 FILLE DITENCRS 


STs*LOc SYMBOL; SItmSi+73 DSt3cHRs DStee LIT" "3 
OLDBEGCTS#03 & WE PRINTED TT 7 


ae RE ae ey 
IF DEFINECTR = 0 “THEN x “Nor. ae A DEFINE pecimeartoN 


IF T,CLASS = BEGINV THEN 


2 oe rg a ete 8S OLD BEGCTTI@NEWBEGCTIeNEWBEGCT4+!£ ELSE 


IF T.CLASS = ENDV THEN 
BEGIN 


NEWBEGCTtenEWBEGCT 43 
ae ee ee . 
EDITLINECLIN®FCR*#Oo" "»MEDIUMPO)3 
$ VOIDT 
$# PATCH NUMBER 423 FOR XALGOL CONTAINS | 15 CARDS 
$1 THyS CORRECTS AND IMPROVES THE CODE GENERATED FOR CASE STATEMENTS, 


Pa, a teers Sr A CHSE INDEX" EQUAL TO THE NUMBER OF CASE ELEMENTS WILL NOW 


$! CAUSE AN INVALID INDEX AS ALL OTHER INVALID CASE INDICIES DO, 


a EEN OF” THE CASE STATEMENT OOOO 
ee $t 3+ AN EXTRA WorRD Iy THE CASE BRANCH SEGMENT is REMOVED, 
: $1 1/8/74 
ni a a a EG EEO CAL PATCH LEVEL 176/770 DHB 
REAL LINKe LUINKs TEMPe Ne ADRe PRT» NULLS 
LABEL LOOP» XIT* ONOUT? 
END ELSE 
JF ELCLASS = ENOV THEN & AT ESAC 


IF LINK > 0 AND NOT éotoe THEN % OMT: Cast BRANCH If 
BEGIN aos Lisbe2 ENDR es 
ENDI 
BEGIN: EMITCLLINKSSLINK)? LINKtslLeslbet END: 
————— bel a RE to im Ain NS bees Ph inks eh aes Sg atc WTaRaAbhe A Sc Hey) esas, ang clea Ae ae VD) abe ae ee 


tt ne 


“END 
$ VOIp 07646551 
ONOUTS 


$1 THIS IMPLEMENTS THE TRUTHSET AS ON THE 86700. IN ADDITION 
$I THE DEFAULT TRUTHSET "NUMERIC? as ADDED, 


INTEGER NTSETS) | 
POWERSOFTEN wcSORTA@1)#, 


x NUMBER oF TRUTHSETS (DECLARED « 3 


n ' nia, We. oF tree 


$3 ae FOUR SYLLABLES oF UNNECESSARY BRANCHING CODE As ELIMINATED | AT 


NS—TOT-c a RRs” pores es A MRO ARMM UE GAIN ONE  m a 


Sr aT feta ae io . 
549 TRUTHSETE: TRUTHSET SPECIFIER MUST BE A “STRING: 
TRUTHSET ID F1i16#8 COMMENT 1663 
' - “e231 — ee ene eS ee ES ee 
TRUTHSETV M2083 COMMENT 303 


S-CAN-HAVE 40- east 


een en en ee ee eamuiaisspetienammnteamaeneanientenmmamiamaiionanmeebmataal 


00000010 
04002400 
01002500 
02182750 
02183500 
02183750 
02185250 


02165300 © 


02185500 
02196275 


O2ZT9IESIO 


02669100 
02669200 
02869300 
02869400 
02669500 


=" OLDBEGCTVEIF OLDBEGCT 3° O THEN O ELSE #NEWBEGCTI02869600— 


02869700 
02869800 


92910100 


05038000 
14255500 


142685000 


00000010 


00000020 


00000030 
00000040 


“OODUNUSU 


00000060 
00000070 
01631100 
07646390 
07646410 


OTessea20° °° 


07646500 
07646502 


OT6R6S0G 


07646506 
07646507 


07646509 
07646533 


“O7606538 


07646540 
07646556 


aa See me enn Fm oN 8 


00600010 
00000020 


00000030" 


00306895 


01278075 
orevs700° ves nie tment an cane 


01298750 
01519000 


01574000 


MARR et RRA Re ment he emtmt SraeN RRA Reda mys OUR LL eye 


“OTS5ES0B 


~- 9tS20000°~ Sitidebieate ling. Gy Sahin Beas RepnatneelaantenntirsOv ate stan Biccasade le sie Sasa ie daha Mee eta tede tae ie ep el tan 


ll SORTA =765#) &§ MARK ee cian 
eMeaogr ® LOCAL PATCH LEVEL 4/43/74 
Tr aceasta arn VALUE SEQ$ 
SItsCODES 


IF ACLASS*®TRUTHSETID AND NOT VBIT THEN GO TO L22s % NO VALUE 
DEFINE CNA © 2088 2° CHARATTER IN ALPHA 
CNN ® 30% % CHARACTER IN NUMERIC 
CNT * 3185 % CHARACTER IN TRUTHSETID 
nea eo “EMTTOCHKS SS EMITLCO)S EMITLCO)S EMITLOODS 4 
$ vera 07957701 tay 
EMITL(O)3 r? 
~EMTTLUEGNATS ZB CHARACTER IN ALPHA : 
$ VOIn 07957904 
_ END ELSE 
oo tT ASS ETRUTHSETID THEN 
BEGIN 
SIMPLENAMECELBATEIJ)3 EMITLCCNT)5 STEPITS 
a ee rt ae ———ENO ELSE :) een ee a a pp 
: IF Q="ENUMER® THEN 


I 


BEGIN 
TT EAT TE COY F EMTTCCONN FO STEPTTS 
EMITVCGNATCSTRNGCOMPARE))3 
SWN ® 25#, % SCAN WHILE IN NUMERIC 
enn SAT 26F Ee” OB SCAN WHILE IN TRUTHSETID 
SUA = 29%.  % SCAN UNTIL IN ALPHA 
SUN = 30%, % SCAN UNTIL IN NUMERIC 
“SUT Se 39Fr oS SCAN UNTIL IN TRUTHSETID 
BEGIN EMITLCIF WHILECOND THEN SWA ELSE SVA)$ EMITL(O) END ELSE 
IF ELCLASS ® TRUTHSETID THEN 
“EMTTUTTF WRICECOND” THEN SWT ELSE “SUT)3 
SIMPLENAMECELBATEIJ)3 
_END ELSE 
f-@-3- 


| 
| 
| 


i 
| 
| 
| 
{ 
! 
| 
{ 
i 


| 
al 


Sa ia aT PENUMERS- THEN 
BEGIN EMITLCIF WHILE COND THEN SWN dice SUN): suinbees END ELSE 
$ VOIpN 07965601 
rer rrr FN te 2 SBE FRANSPER! WHILE TN NUMERT EC” 
TWT = 268» 2 TRANSFER WHILE IN TRUTHSETID 
TUT = 2086 % TRANSFER UNTIL IN TRUTHSETID 
nn Hg Oo FRAN SFE RO UNTFEE PRO NUMER EC 


COMMENT CONDITION IS: WHILE IN ALPHAs NUMERICs TRUTHSETID 
OR: UNTIL IN ALPHAs WUMERIC® TRUTHSETID3 
nnn EER EMT TE CTE WH TCECOND THEN THR ELSE TUnyr EMITECOy END ELSE 
IF ELCLASS ™ TRUTHSETID THEN 
BEGIN EMITLCIF WHILECOND THEN WT ELSE TUTE 
Fo ta ae Re ———SIMPCENAMECECBATE IAS 
ENn ELSE 
IF Q@ = "7NUMER® THEN 


$ VOID 07975604 


ae pe Ae I 


TIF-WHIGECOND “THEN THN ELSE “TUNIS -EMTTL(O) END ELSE” 


01560000 
01631100 
04130000 
04134000 
07217513 
O79574AIO 
07957420 
07957430 
07957440 
07957700 
07957750 


07957600 


07957900 
07956010 
07956020 
07958030 
07958040 


07958050 


07958060 
07958070 
07958080 
07958150 
07961811 


O7961 B12 


07961620 
07961621 


07961822 


07965400 
07965410 


O7965a20 


07965430 
07965440 


| OT965850 


07965460 
07965600 


~ OF IGBETO 


07968a20 
07968430 


07 9684K0 


07975200 
07975300 


OTsTS500° 


07975510 
07975520 


 O79T5S30" 


07975540 
07975550 


OT9TSS60 °° 


97975800 


001T031320000005600008 "SHAPPE™s "NEDOOOCOO"™, @CT2000000000100020+ %74409214430 
OOIHVONNN 


<< CETTE TOD On NETRUTHTs TSETOOOOO"s $758 OFZTNIIT 
0€T0030000240000000, "7PROTE™s "CTO00000"» %76109214440 
06T2009000000004050+ COMMENT POWERS OF TEN 3 %76409214444 
= TE COMMENT SORTA IF SV6509ZT SaaS 
a 692 STEP 3 UNTIb 7260 752° STEP 4 UNTIL 748+ 750 STEP 2 UNTIL 7560761 09214513 
ae ENDS 09360100 
on eer een rENySET Sa a apices cee te eat i 
FOR yim0 STEP 3 UNTIL NTSETS 00 09360300 


“OG SBOZO ee eed 


o£ @ 


-_—__ 


09360400 


BEGIN 
ea | 3 MOVE C+ TRUTHSETSE IJ ePRICCGTY Fe TRUTHSETSCI42)) DIV 128509360500 


Gl1 MoD 128))3 

—MOVECy as TRUTHSETSE 144)» PRTIECGT1%SGT1412 OV 128. 
GT1 MOD 328))3 

IF BOOARRAYIDSTYPESINTARRAY ID 

OR TYPE = TASKID 
OR TYPE #® TRUTHSETID 
THEN % MUST BE CALLED BY NAME 
PROCEDURE TRUTHSETES 
ee BEGIN 
STREAM PROCEDURE hu TuSETTEREN: AaT)3 VALUE NB 
scar LOCAL CeCP3 
ES ee ey SyrsaAs SpTr@eSt+as OLsmLOC C3 OLseDy +73 CPtapys 
N € DitwCps DSteCHRs DJ tats SKIP DBs SyxIP C DBs DSieSET 93 

EnD SETTER? 
“ERB EL AWAY : 

IF cTAICJeLI40 1 THEN Fexetoess % NO SAVE OR OWN 

Te*1"13 
ee pe “DO BEGIN = 

STEPIT!S P2 y= TRUEJ ENTRY CTRUTHSETIDD 1 
IF SPE@TOG THEN GO AWAY3 


IF ELCLASS#LEFTPAREN THEN BEGIN ERR(¢105)% GO AWAY END! 
IF STEPy#STRING AND ELCLASS#STRNGCON THEN & BAD 
meme mmr eee me EP ERR ES AGIE GO AWAY END? 
DO TRUTHSETTERCCOUNT»ACCUME 1)» TRUTHSETSENTSETS)) 
UNTIL STEPI#STRING AND ELCLASS#STRNGCOWS 
TF EUCEASSFERTPAREN THEN BEGIN ERRC10Q25 GO AWAY END) 
IF DEBUGTOG THEN 
BEGIN DEBUGWORD(" 
EDS eee oat, Coat al “DEBUGWORD(™ 
END DEBUG! 
NTSETSt@NTSETS435 


“sTRUTHSETSCONTSETS] e@LIN)s WRITELINES 


Se ae 
UNTEL STEP TECOMMA} 
AWAY! 

END TRUTSETDETCERT 
TRUTHSETDECs & 


a ne cae 


Sele ee ee ““TRUTHSETDECK  * 
“TRUTHSETDEC! FRUTHSETES GO TO STARTS 
$# PATCH NUMBER 425 FOR XALGOL CONTAINS 4 CARDS 


on mnn mn S4— FETS ADDS THE NUMBER OF” SYNTACTIC [TEMS PROCESSED TO THE COMPILER 


$$ SUMMARY, 1,£, 7700, 7/46/74 DHB 
INTEGER TOKENS} % NUMBER OF SYNTACTIC ITEMS SCAWNED, 


ee peepee nena ane tan 


"PROGRAM CONTAINS*eI 70" SYNTACTIC ITEMS, 7 
TOKENS» z SYNTACTIC ITEM COUNT 


$t THIS 1S AN TNPROVED VERSION OF PATCH X1Vel05. IT COuPiLes A FILE 
$1 DECLARATION SUCH AS FILE FLE 3"ABCDE" ey eWITHOUT 
TF MAKE ING THE OSE OF OCTAL AND HEX STRINGS “IMPOSSABLE IF “THE 
$$ LAST THING ENTERED INTO THE SYMBOL TABLE WAS A FILE: 12/20/72 
&§ VOIp 02761502 2 VOID XIV,105 


TEST OP ENTRY THEN” DEFINECTRI®ID} H STOP OCTAL HEX PROBLEM 


IF DEFINECTR>95 THEN DEFINECTRseO3 & RESET DEFINCTR 


oT alia pants anc aeamnenetoraeaanastintoenen ethacanictaeeeaetra en heen ae atte ee ee a ee Se ee ee 


",TRUTHSETSCONTSETS+1),LINI3 WRITELINES 


PTRDECsDEFINEDEC, AUXSIZERRAUXSIZERR, oe TASKDECSEVENTDEC. — 


09360600 
09360700 
09360800 
13330550 
13330560 
13330570 
13330580 
13595500 
13595510 
13595520 
13595530 
13595540 
13595550 
13595560 
13595570 
13595580 
13595590 
13595600 
13595610 
13595620 


TRUTHSETSEINTSETS 32] TeGETSPACEC TRUE e142 913 & CONSTANT OR STRINGI3595630 


13595640 
13595650 
13595660 
13595670 
13595680 
13595690 
13595691 
13595692 
13595693 
13595694 
13595700 
13595710 
13595720 
13595730 
13595740 
14016750 
14021000 
14021250 
14155600 
0.0000000 


00000010 


00000020 
00504175 


—"“FOKENS HH TOKENS 6 TFS -COUNT-OF-SINTACTIC ITEMS PROCESSEDOZ9O9S00" 


09274455 
09419250 


14155900 © 


14156100 
14156300 
T4T356500 
14156700 
02761500 
13080750 
13081250 


€| © 


— 


$# PATCH NUMBER 800 FOR XALGOL CONTAINS 35 CARDS 

$t THrS PATCH ADDS THE CAPABILITY ‘To SYNTAX 
mn BE FE YER EOS DCP CONSTRUCTS = —- 

$% ERRORBRANCH ATTRIBUTE ADDED re 


00000010 
00000020 
00000030 


$! THIS IMPLEMERTS THE COMPILER PORTION OF THE XWRITE ATTRIBUTE® 11/24/7200000040 


paced a Sacer adi Shp Last un chs Fiabe gcc aie Sr ate he oy “al 
SBOLASTS" % LASTSTATION 
oM4O0#LASTS" & LASTSTATUS 
re ERE OM OST EMEOUT 
»UBCHART® &% CHARTYPE 
*"BDCACC™ & DCACCESS 
et ee aa ence Og RCE ES 
eNHOBUSERC” & USERCODE 
o™Z09STNST™ & STNSTATUS 
Tren remnemnmernnnns 5 9 ROR Aw SEX TENDED READ 
»"BOPERROR® % ERRORBRANCH 
e"BO6XWRIT® & EXTENDED WRITE FOR SYN LINES 


eee ER END OF FILL STATEMENT CWITH DCP STUFF SAFELY HIDDEN) 
DEFINE NBATTRIBUTES = ¥ THE NUMBER OF STANDARD BIG 8 ATTRIBUTES 
17#s % MARK XV,2,0 2/13/74 
eT NCPORFFSET OO CE BO THE ‘NUMBER’ OF OVER*LAPPED ATTRIBUTES 
5#, & MARK XV,2,0 2/13/74 
DCPATRBUTENDXe CATTRIBUTEINDX * DCPOFFSET)#3 

To mrmrnrrrrrnnnn ss seman mmc ee os ENUM CIF ATTRIBUTEINDX® 1 THEN "6ATCESS" ELSE 

IF ATTRIBUTEJNOX® 4 THEN *60THRUS” ELSE 

IF ATTRIBUTEJNDX#12 THEN "6ARASIZ" ELSE 
a a ca a a TF DCPATRBUTENDX313 THEN W6OLSTSTN® ELSE 
IF DOCPATRBUTENDX#14 THEN *6LSTSTS*® ELSE 
IF DCPATRBUTENDX#15 THEN *"6TIMOUT” ELSE 
TIF OCPATREUTENDX TO THEN TOCHRT YP": ELSE 
IF DCPATRBUTENDOX®17 THEN "6DCACES” ELSE 
If DCPATRBUTENDX#20 THEN “6STNSTS” ELSE 
a rrmmmnrremenmemannmanen as mama entcamenmanren soe os on ee A OPA PREITENDXEZ2 THEN POERRBRN®- ELSE 

IF DCPATRBUTENDX#23 THEN *6XWRITE" ELSE 

0 & FILEATTRIBUTESLATTRIBUTEINDOXJ(68128 36) 
SSE ST re RE “—-& FLL EAT TRIBUTESCATIRIBUTEINDXIEY¢39179 3 

“EMITLCCATTRIBUTEINDX = £ 


EEE MI PN LE! APE ROTH Boge Rest Pl OE OR IE A) ke wa LN aS 


08893094 
08493121 
08493122 
08493123 
08493124 
08493125 
08493126 
08493127 
08493128 


08493129 


08493130 
08493131 
08493135 
06493504 
08493502 
08493503 
08493504 
08493505 
08493790 
OB493794 
08493790 
08493793 
08493794 
08493795 


OBNSITIG 


06493797 
08493796 


08493799 


08493800 
08493820 


08493630 


08493640 


CIF ATTRIBUTEINDX > NBATTRIBUTES THEN DCPOFFSET+108493842 


a iar Eh a ante en pee Aladdin “in. “GR RAT, ges elon ey” Lane  ERSE 4 
7 & REALCNAFP OR NSFA)E3994711) 


ne NR RUE REEASRERReR A mR ee RUNNIN od tn Had gt ena pamam Ep me Fy Ee a te etme mE gt 


LABEL OOOO000@0LINE OO17BLO47EXECUTE O/R 


ee SL I NE RI ORS eM RHINE COMMER HL PE RI Ea eT fam Rem ona 
EA a RRS RE A yp ei En MO, RN IESE HE gE RR mrt re re ea 
Oat metememaeneyimemem we ae Re RR eR RA RN pee ee eR, I NR me eevee em et eee oe _ oa 


06493644 — 


08493846 


7R 


raigi 


@) 


meee VEXECUTE O7R- 


—> 


PACKET 31 
DoD oy ee ae es: a ae aide eat ean ewer “6 CARDS “FROM . Ct RA ie 
= TIME 1134 

DATE 78104 FRIDAY» 04/14/76 


omormmnmmmnn ns ee BURROUGHS BS7OO DCMCP MARK XV1,0,178 AND INTRINSICS MARK XVI,6,132 #46 


NO MESSAGES TODAY 
11834857 EXECUTE O/R 
| 11434358 2COMMON® 1 
yee eee tg pee yore CMa ee “tr r347s68" nn J 4 {LE -CINES LINE: PRINT | 
11134158 @FTLE TTY= TTY DUMMY 
11834358 | ?FrLE Ss XALGOL/CUSTOM 
lia hes eke og aN an ne iP de rhs 
11134159 4s0/Re 1 pOJ 1134 11729/76 
11535100 PBN0032 OUT O11 LINESO/R® 1 
a PEE TSTOON DKA CEN SER XALGOL CUSTOMTO/Re 1 
11135432 DKA REL XaLGOL CUSTOMIO/R= 1 
11135332 Ppp0032 REL O11 LINE 188430/R= 1 
ee Tse tee Sete nee “OTR rrod rr tem ete pein. de E 3b it ae 7 
11135433 FOR O/R®. 1t PROCESSS 19 SECSs 10® 32 SECS* OLAY* 0 
11135133 PKT#0031 REMOVED 


Moore Business Forms, Inc. sv 


RN ST PEAS pm np HN em - 
et re wa pon nant ve 
LAR AN RNY A NES Qe Se Fa mn SEP MINR,O otE AR RMN ag ga cermin eee 
ee a sna ee — — - 
ete co inka gg pn samen a nF MEER mem GN ns Mme RE Am RRERSRE  o g ew Lea wipe a gee gt om ES am mM go Sm me ak cee mm RNY Ge amt em em ee 
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LABEL  OQOOOOOOOOLINE  O001781047EXECUTE O/R 


po 


FYLE? XALGOL/CUSTOM FRIDAY 04/14/78 11334 
S¥ PATCH FOR XALGOL XYTT CONTAINS 65 CARDS 7 
COMMENT jek ee eee OR eK he ke em 
see ee ee ee ee ee ek 


ESC E TUN ey eee PATCHES 


Meee Tee eee eee eer 
THeSe PATCHES ARE INCLUDED TO PROVIDE IMPROVEMENTS 
_IN BOTH EFFICTENCY AND USER CONVENIENCE, THEY HAVE BEEN 
“COLLEETED FROM A VARIETY OF SOURCES; PRINCIPALLY FROM THE 
"WESTINGHOUSE RESEARCH LABORATORY, 


ORR HE POE ROR SSH OH PHO SHEHSHH HTH OHP EHH STH ASF FPS THM EFEOBRERKN RAK Bw oe 


191Zd 


—NSROLY PC 
THIS PaTcH REDUCES. THE SIZE oF THE ‘pIsk AREAS. CREATED. BY THE 
COMPILER AND SETS THE SAVE TIME OF THE NEWTAPE FILE 10 
“TS "DAYS “AND THE LINE FILE TO 1 DAY,” 


| 


D>) UFTTID 


, Oy 


402 NSROL®PC 1/4/71 DHB 
—— —— ER ORDER THAT THE CINE PRINTER FILE WILL NOT BE toST IF Tt 
1S LABELEQUATED TO DISK AND THE COMPILER IS DS*ED THIS 
PATCH CAUSES SUCH A LINE FILE TO BE LOCKED AND ENTERED IN 
“FTE DTSK DIRECTORY WHEN THE COMPILER HEADING IS WRITTEN 
BY THE DATIME PROCEDURE, 
“Hoy NSROL SPC TTY | 
THIS PATCH MODIFIES THE COMPILER Tehine AS eeauen 
Ae A SINGLE SPACED LISTING IS ASSUMED BY DEFAULT AND 
SS See ee ee ee ee Peles OPTION *SINGLE*™ HUST BE-RESET To GIVE” 
DBUBLE SPACING, 
Be THIS ADDS THE ACTUAL PROCESSING TIME USED BY THE COMPILER 
HE-SUMMARY-AND- REMOVE S “THE “ESTIMATED: AUXTLLARY 
MEMORY REQUIRED, 
, C, THES SETS THe COMPILERS ERROR LiMrT VALUE TO A DEFAULT 
EOF FES VA MAY BE CHANGED “AT™ ‘COMPILE “TIME: 
BY THE "LyMIT" $ OPTION, 


FOC we EHS STEPS HEP SHAH Ee HSS HF SE HS SHH SKE HHO RF eH POF NO eH DHE Bake wm 


muure Dusit: 


er I nt (sent ns ponte ne ein eee ia ctaaver Sansa naiide neo 


ae es eet er ae ea 


THIS PaTcH “MODIFIES AND ‘CORRECTS THE COMPILERS METHOD oF 
CALCULATING A PROGRAMS CORE ESTIMATE® 


405 WRe NSRDL@PC DAVE BROWN 


THIS PATCH IMPROVES THE COMPILERS EFFICIENCY BY 


-— 
SOME POOR CODING, 
Ce eg ee ee ee eee eee ee Renan mentee 
“FOB DEVE“ BROWN S75772~ 
THIS ALLOWS 8 CHARACTER. BCL» 16 ocTADE. ‘OCT AL AND 12 ; HEXADE | HE 
STRINGS SO LONG AS THE FLAG BIT I[S NOT SET, 
EE ES aS a aS a TS TSS a OH SE ap i a GS HS We we Oe Se i sl iw 
407 Wr 
THIS peceneuis THE STORE*STAR OPERATOR OF THE FORMY 
6 a a “REX —"tR- tom ween Vm mes eed smtsen orem sense ame one om, 
1™ Cu> & AEXP CCONCATI«® ETCe 


BEU) 


a Ae AT Ca TN INR eR PA RE St PN NR RIP) NA SHEN mon 


SEGMENTATION AND BY REWRITING 


AM 


09417120 
00490010 
00490020 
00490030 
00490040 
00490050 
“00890060 
00490070 
00490080 
00490090 
00490100 
==00490110 


VOTZO 


004 
00490130 
00490140 
00490150 


FS OER ESTO OO HOHE O DETR T EMM OTR RR ROHR ERanNnonnnwansanmemne( (40160 


00490170 
00490180 
00490190 
00490200 
00490210 
00490220 
“00490230 


""O0FI0ZEO 


00490250 
00490260 


"90890270 


00490280 
00490290 
OG49O300 
00490310 
00490320 


00496330 — 


00490340 


i aeeaee 


O04S90360 
00490370 
00490380 


—_________seceeecereccceneceenceensnresneacennereetenenaruerwnrsencrepenscerserere=(Ok039). 


00490400 
00490410 


00490430 
"00490480 


“OOaI0aSD” 


X00490460 
00490470 


SOW VORB on ce etic nneemmmnannn renee tect ete ant 


00490490 
00490500 


00490520 


Net A Ne tm ene RE mm GLE ee 


oossoa20 


~~ OURVOS TO a i ee nee 


@ 


_] 


raise 
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THE STAR (€*) AS THE FIRST *OPERAAND® AFTER THE 


 REPLAGEMENT OPERATOR 


CAUSES A POLISH(DUP®LOD) TO BE 


EMITTED INSTEAD OF RE@EVALUATING THE ENTIRE SUBSCRIPT 


EXPRESSION, 


00490530 
00490540 
00490550 
00490560 


EE SE EE ERODED HED 6 ERM Me RRO EON he gQiggwretpbha Stra Meant pP eae 008 90570 


408 NSROL#PC 7725/71 ODHB 


TWO NEW FOR@LIST TYPES ARE IMPLEMENTED BY THIS PATCH, 


“THE FOLLOWING TABLE GIVES EXAMPLES OF THE NEW FOR#LIST 


TYPES AND THEYR EQUIVALENT ALGOL*60 CONSTRUCTS, 


NEW FOR*LIST TYPE 


Fe ee ee “RBC 
Alc 
ee ee ee ee eR HOR He END OF 


ALGOL*60 FQUIVALENT 
' “A STEP B UNTIL ¢ 
A STEP 4 UNTIL C 
NCSL PATCH DESCRIPTIONS xe * } 


a SE PRTITH BOT FOR XALGOL,XITI CONTAINS 3 CARDS 


DEFINE CHUNK s 908) 


FILE OUT LINE DISK SERIAL £208300) (RR3e15»RRaeSAVE 1 )3 


Se emamneunaanaaanmbemamatiboeaemndtanment 


LE OUT NEWTAPE DISK SERIAL £203600] CRRSSRREPRR7PSAVE 1593 


SEPATCH 402 FOR XALGOLsXITI CONTAINS 6 CARDS 


If QteL INE, TYPES22 OR Qe10 
APGIN eee 


OR Qwi3 THEN % GOING TO DISK 


Niseris & DONT NAME FILES FOR REMOTES 


“END 
S# PATCH NUMBER 403 FOR XALGOL 
“$+ MAXSEG” AND-TMPROVED “SUMMARY 


CONTAINS 91 CARDS 
ADDED 2/13/74, DHB, 


INTEGER MAXSEG) & FOR LARGEST SEGMENT FOUND, 


ARRAY LIN([OI9)3 


nme STREAM PROCEDURE CODENA MECN ON2° LIND # VALUE NieN2s 
E 


BEGIN. ® €C 0 DE “NAM 
LOCAL 3 . 


crn re SEE BEOE NIT STPESTETS 


7CIF Ses” * THEN JUMP 
NOeTALLYS % NUMBER OF 
DrieLINe DitwOy4+52) & 
DIseDI ens DIsep lene 


“DT TECTNG DSTEBL TTI FS” 


OUT) TALLYSeTALLYo43 SrsSi4i4)3 
CHARS IN FIRST NAME 
STVEL ING DSias WHOS? 

TO THE "/*" 


ine cern SES ELOG NIE STIUSTS IR 


NCOSteCHR$ DI stedle1)3 
DSteLIT"/"s DiemDI ois 


Poem neers onmematinaescharnaameneneneie am iatambneteeaarnann tn eaeataimatnememantion “t 


TCOSEBGHRS DiteDlel)s 


TVSLOC NAT STYRSTFIT 


i ENDS 
TRE RM PROCEDURE -UNDERETNECL ING 3 


BEGIN 
StrwLINn3 Sleas ives). 


RS A Scene meena nge see mime ants pase 


1SCIF Ste" * THEN ae ELSE DSteLITans 
} 


SysmSi¢2s OpteOtet 


BEGIN 


——————— CABEL ZERFONEDNAM STILE LOCAL NT eee 


“END —— ve 
STREAM PROCEDURE NAMEITCAsByWsLIN)} VALUE AyBoWs 


DiseLIBs OLteD14378 Slesuoc As SleweSpegs 
Clteci+ws GO TO ZERs GO TO ONES % GO TO THOS 


a et an een i 


“DSTETZETTONEW- SYMBOLIC s° GO TO NAMS 
ONE? DStw 6GLIT#PATCH "8 GO TO FILS 


Comat 


A A REINER ee RI wet ncn Hees 


00490580 
00490590 
00490600 
00490610 
00490620 
00490630 
00490640 
00490650 


01556100 
01559000 
01560000" 
01628800 
01828810 
01828820 


LINE, TPPES#123 WRITECLINE)3 LOCKCLINE D3 % So ITS. NOT LOST ON 0801828830 
“TENE GAREA STOTT LINESAREASTZE TROP | ; 


01628640: 
01628850 
00000000 
00 00010 
01693100 
01822500 
01627010 
01827020 
01827030 
01827040 
01827050 
01827060 
01827070 
01627080 
04827090 
01627700 
018627110 
01827120 
—O1T827T30 
01827140 
01627150 
—OV827160° 
01827170 
016271680 
OTe627T90 | 
91627200 
04827210 
01827220 — 
018627230 
01827240 
“OYBATZSW 
01827260 
01827270 


 OY627260 dy cues cequta ie. eh 


01627290 


RA A OE RS TE RRR IEEE cen MR tg Oa MIR pE at Haute mame pa 


1aiet 


rorms, ine, >¥ 


Moore DuUDINES> 


€) ®@ 


> 


De coecuammeneeeasenammoatenancnnmamtonanannennonan onameenenaanenaetanctnecertoeeeeeen ee ina ee ee 


ZER$ OSte 6LITSOURCE™S 

“FILT DSte SLIT He FILE ws 

NAM$ DSta 3LIT~ 7S DStmaLit* "3 

7CIF Ste" © THEN JUMP OUTS TALLY Se TALLY 415 StesSteqs. 
NYETACLY? Sitestent Piiebtent- OSten CHR? 

DScsLIF"s"3 SLse_LoC Bs SlysS1413 OSga7 CHR: 


| 
| 
| 
| 
| 
i 


RTT See rann een Cner¢-pemea SRN Son 


END3 
re ern ee mm ““ECSE ae a te me mm es 
BEGIN &% GIVE LINE FILE NAME OF CODE. File 
IF STATUSCLING#)) > O THEN LINEs TYPEV#453 ® REMOTE INITIATION 


mmrnmn mene === <TR SMPIDIENIS LINE, FID PaNn27” 


ENDs 
WRITECLINECDBLI + % 


Or GAN ME ABSA AY p Me Oet es MHTIS*UMIADIXY DAI 
$ VOID 
IF H 2 ‘12 THEN “PMe" ELSE "AM9™)3 
TE VOT OT UL SISIIT . 
a IF NL 2.0 THEN % NOT FOR REMOTE SO NAME HIS Pies 
BEGIN 
ARI TECUINELT DBL IVF OO ; 
COMENAMECNI®N2,LIN)3 ateCLIMeseA LINC #I)3 
UNDERLENECLIND 3 WRITECLINECDBL J» 9, LINC#}) 5 
TT AE TRCARD ME TOF NZTECARD SFT OF | 
IF MERGETOG THEN & §$ TAPE 
BEGIN 
rrr ners ns == ARETE CPAP E SMF TDS TAPES FIDOOWLING 3 
WRITECLINECOBLJ] e9*LINE*))3 
END$ 
ene! me name ne ptm nts St 4 7 YPErt: — HEN CCT ine Sinaia vitae “ASEH Mianoseaiae, RS oe Syte Gai aden Wet i . 
NAMEITONT eN2eREALCMERGE TOG) e LIN) 
ELSE : 
rn rnin 8 EEE LOR yee on Ag Re MRE ALEMERGEETOG OLIN, T 
WRITECLINELDBL 9095 LINES IDE 
If NEWTO0G THEN a is NEWTAPE 
Te cemeenpenetemnaatanananttteet ater Reactant eeetoeat Reet tr BEGITV ng a NE I EA eR wee 
NAME TCNEWTAPE, MF iDe NEWTAPE, FiO; 2eLINDE 
WRITECLINELDBLI 09% LINC#))3 
LR PINS Nh A SEN SN Ha a ——— PO a ses iy D- 
WRITECLINE)3 
END$ 


OPTIONNOROT*F ALSESTRUECSINGLETTITII~ S&S SET SINGGE RESET REST 
OPTIONSC 43) ¢%1; & FOR SINGLE SPACE To BE DEFAULT 
"6GSINGL" els % ads 43 
TTT —— SINGLE TOGTETRUES BF DEFAULT SINGLE SPACE LISTING © 
ERRMAX§#825) % DEFAULT VALUE, USER CAN CHANGE BY & CARD 
FORMAT PAN € % €OMPILER SUMMARY 
ED eT a - COMP TEE TIME a TS IN 8 T6 "SECONDS, * 


X1{602A4e// 5 
"PROGRAM SIZE! CARDS PRT DrSk SEGS PGM SEGS MAX SEG * 
ODE *--——— cee amma + sen sm et ed am ame HB enka ah, + Sei ate aaa een Sete emi a ek atta nite . a Sudha ae och er 
Xpho[S5er7o%yOo lage 1100 1g 2// 
res TINAIED CORE STORAGE REQUIRED s"I6e" WORDS, ")3 
“WRT T ELLE NES PANS COMPILER SUMIR Pdeierstoiaesin 
ERRORCOUNT o TIMEC2}/ 60+ (TIME CL I@TIMEL)/600GT106T2+ 


CARDCOUNT»PRTIMAXs 


“TREN DA 
SGAVL©1»MAXSEG» AKKUMs 


a astaitamuamennentadeen eemaamaeamtamenateenetmeneand 


01827300 
01827310 
01827320 
01827330 


O1B27340 


01827350 
01627360 
01626660 
01828670 
01828880 


OL82Z8890 


01828900 
01629000 
01832000 
01832500 
01835000 


(OLB35001 


01635025 
01835050 
01835075 
01835100 
01635125 


016351750 


01835175 
01835200 


018633225: 


01835250 


01835275 
—OTSISI00 


01835325 
01835350 


04635375 


01835400 
01835425 


01835850 


01835475 
01835500 


 OT835525 


01835550 
01835575 


“O2tTsI0000 


02131100 
09027044 


~ O9028020° °° 5 


09828910 
09274400 


“O9FPHETO 


09774420 
09274430 


09774450 
09774460 


“"“O9aTTo00” 


09417500 
09418000 


09419000 


’ i = sf H : r 2 : : Z : 


raat 
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GT1q)8 09419500 
a Tome ENDE | 09449750 
IF SIZESWAXSES THEN MaXSEG baw 7e % LARGEST SO FAR 136641100 
$# PATCH 404 FOR XALGOLXITL CONTAINS | 7 CARDS 
Te NSD re ae “ 09361008 
GTIL$*IF NOOFARRAYS > 10 THEN 5000 ELSE our anhayeaso0s 09161040 
& OID 09364061 z 09361050 
ra alias "GT TTEFETILECTF AKKUM > 10000 THEN 5000 ELSE AKKUM/2)5 & 09161080 
z 09361100 
IF CLIOTEMPSeGET(CL"2)),£4632) = 0 THEN CURRENT3a]OTEMP 13113000 


rn rrenromnmnseninnscanrnnn PE “CT OFEMPEMGET (LPL) 508652] ® 0 THEN TOTEMPERIOTEMP DIV 413148200 
$# PATCH 405 FOR XALGOL:XITI CONTAINS 269 CARDS 


DEFINE EFF SEGMENT sDEFINE ZOTSEGHERES##S % TO FORCE A SEGMENT 01800060 
mn MOT OT ZIIOS YT ae 04339050 
DEFINE FSAVESRRIO#} COMMENT SAVES FRACTIONAL PART EXPONENT 3} 04340500 
INTEGER IDL0C% ® POINTER INTO IDARRAY (FILE PARAMETER BLOCK) 04341000 
EGTA SOOT ee RR IS EE . 04815500 
$ VOID 01525001 01525000 
INTEGER KOUNT3 01583000 
EI OT HD OLEOIO0I © ee 01598000 
$ VOID 01687001 01684000 
$ VOIDT 01737259 © 01537000 
TF VOT OTT ESNOT- i | 01786000 
DEFINE LOOKDEC#® USED ONLY IN SEARCHLIB, SEE 02013184 02801010 
#3 % END OF LOOKDEC DEFINE 02801610 
oom = OOKDEC £8 DECLARS STREAM PROCEDURE LOOK SEF 2001010 02813184 
$VOID 02023000 . 02020000 
$ VOID 02263001 02262000 

TECK EP OPE RTI em Loewen OP tw] ys: cae ee “92562000 — 
COUNT SHO8 - Sein: % 02491000 
$ VOIDT — 02716000 
SS a a ee ee ae  02908000° 
$ VOTpn 03018001 03018000 
$ VO[p 03033001 03031000 

rae DEFINE -CONSTANTCCEANBBEGING- TF OMRCLEAN THEN CONSTANTCLEANP END #3 03034000 
PROCEDURE CONSTANTCLEANPS FORWARD! 03834400 
DEFINE PASSTYPECE) (CE, CLASS#BOOPROCID), C46s2)) 85 03874000 
-——BEFENE—SORT STM FarSORTMERGESTMECE ALSED #e 030817000 
MERGESTM¥eSORTMERGESTMTC TRUE) #3 03082000 
PROCEDURE SORTMERGE STMTC MERGE) 5 VALUE MERGES BOOLEAN MERGES FORWARDS 03082100 

BEGIN, EFF SEGMENTS OO ' ‘O81FIDOO © 
" PROCEDURE CONSTENTCLEANPS 04163000 
 & 04164000 
a rrrrnrnrcnrencncns aaa EE EEE SEGMENT Ss - 08247090" 
END B2D3 04248010 
SVO1D 04277000 04265000 

Pease sett he acelin seal Cs ge R EPO 
BUGGE! tS, 6368103) ELSE WOPLTIIJeIF hat er ARIO. 04281000 
. BUGGERCS,£36%40)) ELSE WOPETLJeIF Te" THEN RRIO 04286000 
—_—__—_---—eno-errseqMent peptgro oo mitae Saves Pasties) aie. Oe a ¢ 04287{00 
COMMENT PACK IS A STREAM PROCEDURE WHICH INSERTS THE SYLLABLE 04292100 
INTO THE FDOC ARRAY, THE SPECYF C ELEMENT OF E€D0C 04292110 
{Ye EDOCT EL DIV-8F PTY T28TTS DIV SIMON 1267 “ OaZI2TZ0° 

S#LLABLE. POSITION®CL, MOD 4. )» WHERE 4 IS THE SYLLABLE 04292130 
NUMBER RELATIVE TO THE BEGINNING OF THE SEGMENTS 04292140 
—-SFREAM-PROCEDURE—PAEKCHORD PPOSTT TONG SYLLABLE SF 7 > ar 04292450 
VALUE POS;TLON»s SYLLABLES 04292160 


a RE RA AR A AE AE NEN Et RIN RIPE) SME EE Ae aM NRA) RRO RE ma OLA 8 HAA UE IAEA 9 nem EE Gm mR pRB Hm REIL ak wl ge Repo na nama gh oe dan nn el ect ce 


|) @ 


' 


REC A 8 a RE RP ER LPO Fn FOES 88 Lint onttt ee | tine epmensinpy meme ne © oney fenempmnp ene! Bd pati, 


BEGIN 
DIeWORD # DI © DI+POS}TION # DY « DI+POSITIONS 
“““STeLOC SYLLABLE #°S1TeS1463 
DSe2 CHR 3 
END PACK 3 
it tg ga i . 
RRLOtm@CTR OatO THEN bb; Espvaleorisiiseia ELSE 

DEFINE PUNCHCFLsST)aIF WRITNEWCFL OST) THENSS 
TE AT O05 

$VOID 05101000 

BEGIN EFFSEGMENTS FLAGCERRNUM)$ 
ease 8 OC 5 t8 aso etns oe A GHENT Soe 
BOOLEAN RRB2? 
DEFINE CHECKPRESENCE ew x FOR EFF 

EN CHECKPRESENCE SES” 


| 
i 
| 
| 
1 
| 
i 


BEGIN EFF SEGMENTS IF SPACRO THEN SPAC#GETSPACECTRUE»*2)4 
EFFSEGMENTS 
nnn << BT A EE SEGMENT TE” RANGESELCLEASSZLOWER” AND ELCLASSSUPPER ENDS 
s DEFINE CALLSHITCHCHI= & 
#3 
$ VOID 05387001 
$VOJD 054070014 
pr eae “DEFINE IFCLAUSE # 3 
BEGIN STEPITI STACKET + 03 BExPy 


04292170 


04292180 
04292190 
04292200 
04292210 


‘04602000 


04406000 
05631100 
05050000 
05061000 
05106000 


°05152500 


05166100 
05164000 
05187000 
05760000 
05293100 


05104000: — 


05315000 
05316100 


05317000 


05379000 
05388000 


06291100 
ZA 06291200 


IF ELCLASS # THENV THEN ERR(116)ELSE STEP]T END ITFCLAUS#06291300 


teeth SOF, eae ee 
$ VOID Beene 
EFF SEGMENT? 
BEGIN ZELIMINATE 374 
: HOLE # 2 ® REALCFROM)$ ZNAME CALL &74 
ae gg acre ayes ee ““YARYABLECHOLED3; ; “SEXPRESSTON 276 
GO TO EX{T ZPRT CELL z74 
END} ZACC ENTRY &74 
tL A A Em RR Ae) Map NM Nm 4A And “EF FS Po Soe it a a one fon ‘s a Sie 
DEFINE CaRRi#; % To HOLD FoR | A WRT 
I 
a eS BEING Cott jeiaata's ie (MSs Sr abig suey woke Thad wy pa enteS 
BEGIN 
$ VOIDT 


——— Fete ty STEPIT  F 
To Sosecay en ree s 
$ VOIn 08276001 
—OCHEFTRERTIRTBUTEST NITE ITEP ILEATTR IBUTESTONS 


PROCEDURE SORTMERGESTMT( MERGE)! VALUE MERGES BOOLEAN MERGES 
BEGIN INTEGER SIRTFICERTFICENDY LABEL CUTTF BOOLEAN OP TOGs INPROT: 
DEFINE AwK#s ROSw1 2280s OUTPROROPTOG#I 


COMMENT ARRAYCHECK CHECKS A PARAMETER®INFo WORD FOR SORT/MERGES 


~~ BOOCEAN PROCEDURE ARRAYCHECKCAAW) P VALUE AAW; REAG AAW 
ARRAYCHECK*AAWeCLASS<BOOARRAYID OR AAW, ee 


BeGtn 1 MMGTESOMMNEAECES (HEP DACOMNAD; THEN ERR(3500) 
END COMMACHECK!? 


06291400 
06409000 
06414100 


| O6420700 


07402000 
074021300 


“07402200 


07402300 
07402400 


(OTSIBTOO - 


07596100 
07609200 


07686397 


07646760 
07689000 


‘OT6ST000 


07698500 
08246000 


O8493140 


08901000 
086901200 


08902010 
06902020 


08902030 °° 


08902040 
08902050 


 OBVORVEO™ 


08902070 


9O2Z090 
08902100 


06902080 
-~08 i ee PTO Utah ae 


_] 


wee 


| 
ti, 


Hies2 


WUUIS DUD 


COMMENT HVCHECK CHECKS VALIDITY OF HIVALU PROCEDURE FOR SORT} 
IF ELBW,CLASS#PROCID THEN ERR(356) ELSE 
IF BOOLEAN CELBW, FORMAL) THEN HVCHECKeTRUE ELSE 
——- TET AKECGT IGT T CELBWI TFL THEN ERRU357) ELSE 
IF ARRAYCHECKCTAKE(GT14¢1)) THEN ERR(358) ELSE 
HVCHECK*TRUES . 
“COMMENT” “OUTPROCHECK CHECKS SORT/MERGE OUTPUT PROCEDURES 
BOOLEAN PROCEDURE OUTPROCHECKCELBW)3 VALUE ELBW3 REAL ELBW3 
IF ELBW,CLASS#PROCID THEN ERR(351) ELSE | 
omen "TF BOOLEANCELBWeFORMAL) THEN OUTPROCHECK*TRUE ELSE 
IF TAKE CGT 1 eG1TCELBW) #2 THEN ERR(352) ELSE 
IF TAKECGT141),CLASS*#BooOID THEN ERR(353) ELSE 
IF “ARRAYCHECKCTAKECGTI42)) THEN ERRC338) ELSE 
OUTPROCHECK*TRUE? 
COMMENT E@LESCHECK CHECKS THE COMPARE ROUTINE FOR SORT/MERGES 
Too" BOOLEAN PROCEDURE ESE SCHECKCELBW) I VALUE ELBW} REAL ECBWI 
IF ELBW,CLASS#Q00PROCID THEN ERR( 359) FUSE 
IF BOOLEAN CELBW,FORMAL) THEN €Q@LESCHECK « TRUE ELSE 
“oT PARE TE PTSGTT CELBW) 282" THEN ERR( 360) ELSE 
IF ARRAYCHECK(TAKE(GT1412) THEN ERR(361) ELSE 
1F ARRAYCHECKCTAKECGT142)) THEN ERR( 362) ELSE 
. “EQUESCHEC Ke TRUE ~ 
STREAM PROCEDURE STUFFILECIDLOC# FNS SFN)D} 
VALUE FNe SFN } 
BEGIN Bretobocys DIedl +S: DDC; 
SleLOc FNs SI*SI*5) DS*3 CHR; SI*S1+73 
D8*11 LIT"O0000000DSRT"s DS*CHRs SI*SI™13 
“—“NSeF- CIT “SHSRT* sy DSHCHRI SENeHI3 SletOc SFN: 
DieIpbOcs DreDI4+5s St*S1453 pS*3 CHR} 
ENp STurFILE3 
~~ BO OC EAN PROCEDURE INPROCHECKCELBW)S “VALUE ELBWS REAL ELBW3 
IF ELBW.CLASS#B00PROCID THEN ERR(C363) ELSE 
IF BOOLEANCELBW,FORMAL) THEN INPROCHECKeTRUE ELSE 
FE FAKETOT THC TCEL BW TFL THEN ERRC364) ELSE” © 
JF ARRAYCHECKCTAKECGTI#1)) THEN ERR(365) ELSE 
: _INPROCHECK®TRUES 
eee esas eee meee) a se mem TF-WERGE- THEN: Spats jibiapinicase aah Sal ah pet 
BEGIN % MERGE 
END MERGE 


i “= BOOLEAN” PROCEDURE “HVCHECKCELBW)3 VALUE ELBWS REAL ELBWS 


| 
| 
| 
| 


| 
| 
| 
| 


ee teat nem cine e etinmeies cmmaaene ante 


i 
| 
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| 
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BEGIN % SORT 
$V01p 08945000 
ee “END-SORT ER ne 
END SoRT AND MERGE STATEMENTSS” 
$ VOID 09024000 
PROCEDURE GETREADY} 
BEGIN EFFSEGMENT3 
eV ipt e ee pei aie sce Eh in cing -Kitpitec ad Ackland) cyaisvhes atwhitey sevbasaedtivathinins sone Gley 
$ VOIOT 09028073 
$ VOID 09056001 


LOCKCSPECIALL#})9 % READ ‘ONLY 
: WOCKCSUPERSTACKE#])2 & READ ONLY 
——GTETRGETSPATECTRUES SIF ERRORTOG FETRUES 
END GETTING READY! 


— ar READ ONLY ee Ree ie eto Ce ec i i Mae tet: i cic ec co nos Pie A ali eagle 


08902200 
08902210 
08902220 
08902230 


— OBYNAZ4D 


08902250 
08902260 
06902270 
08902260 
08902290 
08902300 
08902310 
08902320 
08902330 
08902340 
06902350 


 V8IN2]365 


08902370 
08902380 
08902390 
08902400 
08902410 


08902520 
06902430 


08902440 
08902450 
08902460 
08902470 


osv0zas0 


08902490 
08902500 


06902510" 


06902520 
08902530 


08902540 


08902550 
08902560 
08903000 
08904000 
08926000 


osve7000 


06928000 
08929000 
06996100 
08996000 


09003000 
O902G000 — 


09025000 
09025100 


09027000 


09828068 
09042000 


09251320 
09251350 


09774010 


‘O925T3I0- 


ware 


ture, am. oF 


MWwULe Uvanicas 


e @ 


ee 
| 


PROCEDURE. CLEANUPS 


ft rep STREAM PROCEDURE” MDESCTNDs TOLOCTSVALUE WDs 
BEGIN DleLOC WD DS* SETSSI* LOC WD DI*ToLocsDSeWOS END} 
COMMENT THE FOLLOWING PROCEDURE PRINTS OUT THe PRT*® NAMEe AND 
SSE GHENT NUMBER OF THE ENTRINSTC PROCEDURES USED IN THE 
OBJECT PROGRAMS 
_STREAM PROCEDURE WRTINTRSCCSGNO,ALFAsPRTOF ILD 
en WALUE SGNO|PRTS 
BEGIN LOCAL COUNT,DEST3 
DIt=FILs DSsea LIT™PRTC*S SlteLOC PRT SyteSl+aq) TALLY tq 3 
TT OCT STHVOW THEN ZS DONT PRINT LEADING ZEROES, — 
BEGIN Sls@Sl¢y3 TALLYs*TALLY+63 END ELSE JUMP QUT)) 
COUNTESTALLYS DSs®COUNT CHRs D5184 LIT") = "3 
ST TRACED STUMSTHZS DESTIFOIS BUSAVE DI yg 
DIs#LOc COUNTS DSse7 LIT"O"3 pSiscHRs % NO OF CHARS IN NAME, 
DIS*®DESTS BSteCOUNT CHRS 3 INT, NAME, 
SO FSERLF LIT INTRINGS (Ce SEGMENT NOMBER & #3 
Stts LOG SqNO3 DS%e4 pEcs OStelLiT", "3 
DI sepreSs OStad FILLS a JUNK “LEADING BLANKS, 
mmm PRY WRT INTRSTT 
DEFINE STARTINTRSCw42683 
ARRAY PRTsSEGOICTCOH7,098427)3 
Tons eens = EGER PRIADRYSEGMNTILINGS aA 
INTEGER PROCEDURE MOVE ANDBLOCKCF ROM? SIZE); VALUE. SIZE) 
ARRAY FROMLO?0]3 INTEGER SIZES 
“BEGIN INTEGER NSEGS eter 
REAL T3 
NSEGS#(SIZE+29) DIV 303 
LE ODA DIV CHUNK ST eCQAONSEGSI “DEV CHUNK THEN 
DA*CHUNKXxTS 
MOVE ANDBLOCKeDA} 


rm rrr serren srvnns ence crus gman eremcnen me =a AO REET FOR UeO STEP 2 WHILE JUe30 AND 1<S1ZE DO 
BEGIN MOVEC2,FROMEI Div 12853 MOD 128),CODECJ))3 


Je[42} END3 
WRITETCODETDATIF DAeDAas 
END UNTIL J2SIZE3 
END MOVEAND BLOCK} 
mmm ERE AM PROCEDURE ZEROUTCDESTINDIVI322 NMOD3273 
VALUE NDIV32@eNMOD32 3 

BEGIN DJ t*® DEST 

rr es sens seeemesnmes = OTT SZETZCDS Fae LIT MOM 
NMOD32cDS te & LITO") 
END} 


TE HOT YS OFS TIOOO iat a I pc dc Dafa” el elo. ae ar ei Sk HL ibd ey » ttises nah 
$ VOIp 09348000 
GTAtEMINCCTDLOCeMK ABS ¢IDARRAY[0])), C33415]410128)5 
$ VOID 09415000 
END OF CLEAN UP} 


5 FES ERERELRLES ACTUAL COMPILATION DONE “HERE 2EBLSSSTLASRSSASAS ATTA ATT 


DEFINE PROGRAM »® 
GETREADY3 
eEERNUe# 

3 


22 25 EES EERE ERE LER ESE LEE ERE LES EB EL EE EE EEE EET EE BEE EEE EB EER ERE EEE EES EE EL OFEZSOOO : 


1 
| 
7 
| 
i 
| 
| 
| 
| 
| 
i 
| 
| 
| 
| 
i 


09774020 
09774030 
09274040 
09774050 
09774060 


OF?TSOTO 


09274080 
099774090 
09274100 
09774110 
09774120 


— 09278730 


09774140 
09774150 
09274160 
09774170 
09274180 


O9TTa196 


09274200 
09274210 


097749220 


09974230 
09774240 
092778250 
09774260 
09274270 
O9?748280 


09274290. 


09274300 


O9ZTHI10- 


09274320 
09274330 


09278340 


09274350 
09274360 


(09274370 


09274380 
09774390 


092750600 


09275010 
09275020 


09275030 


09275040 
09275050 


(O9ST 7000 


09334000 


- 09394000 
O9809000 


09410000 
09420000 


“O9e2to00” 


09421100 
09422000 


O9Rez000°° ~ 


09424000 
09424100 


09426000 


@ 


vriet 


Moore Business corms, Inc. Sv 


8) 


! 
i 


EFFSEGMENT} 


BOOLFAN PROCEDURE GETINTS 


BEGIN NEXTENTS TF ELCLASS * © ELCLASS < 0 THEN 


IF ELCLASSwe("*") THEN GET ;NTeTRUE ELSE 
BEGIN FLAG(137)9 ELCLASS « O END 
‘ia i i hi i el talent ee ONG Be pte ea’ a Sgafed aeaeanien -VeEeaedoiae Ap 804 toh to -EWo" 6 eT T NT t~ 7 


CoMMENT DIVIDE PARTIONS THE PARAMETER NUMBER INTO THREE PARTS 
RESULT IS PASSED BACK THROUGH Pyep2s AND THE FUNCTION 


| 


Seneca nen nee “TOENTIFTIER, SEE CODE FOR DETATILSS 
INTEGER PROCEDURE DIVIDECNUMBEReP1+P2)3 
VALUE NUMBERS INTEGER P1*P2¢NUMBER} 
“BEGIN: i 


IF NUMBER < 0 THEN BEGIN FLAGC(136)3 ERRORTOG*TRUEY 


NUMBER * O ENDS 
“PYF TR ONUMBER <° 8 THEN NUMBER ELSE 83 
NUMBER * NUMBER@P13 
P2 « tf NUMBER < 8 THEN NUMBER ELSE 83 
DIVIDE « NUMBER*@P2 END DIVIDES 


| 


$ VO1p 10193000 
DEFINE PACKINFOCINFOsTSKIPe COUNT »ASKIPsACCUM) = 
AO VETHARACTERSTCOUNTs ACCUMSASKIF4+32 INFOOTSKIPI#3 
$ VOID 10240001 
$ VOID 13144001 
momen mmmarnmes none VOT LT3IZTO00T ea op 
BEGIN EFFSEGMENT3 
$ VOIp 13537001 
ECT NERTING OFF ZB FOR EFF oon 
BEGIN EFFSEGMENTS 
DEFINE MOVE2CSeD)BMOVEC2eSsD IEF 
SaU RTM. dea 5 i 1-40 dc. 2 ee ae 
$ VOID 13682003 


EFF SEGMENTS 
rn cn EE HANBL ESE TST S ZSAVE 
GOTSTORAGE « NOT SPECTOG OR GOTSTORAGES %PRT 
GO Fo START ENDS BCELL 


a aan aS BEF INE CHKSOBETF GTATE GTAJe1180 THEN FLAGC23)#3 
$ VOID 14273201 
EFF SEGMENTS 
ee ep ee ee EPP SEGMENT E -- CPOE eGo RISD BoB Ge shiy 
$ VOIp 15019003 
be REAL STREAM PROBEDURE GETALPHACINFOINDEX®SIZE)3 
Cy ee ae Sa pede eg ee eee pce ‘VALUE SYTZE } 


BEGIN COMMENT GETALPHA PICKS ALPHA CHARACTERS OUT OF INFO AND 
FORMATS THE YD WORD THAT JS PASSED To PRINTI, THE FIRST 
————<CHRRACTER CONT RING THE SIZE, THE” NEXT CHARACTER CONTAINS THE 15030500” 


ALPHA BEFT JUSTIFIED WITH TRAILING ZEROS! 


DieLOC GETALPHA} DS+8 LIT"O "5 DieD]°73 
TST SINFOTNDERT STSSTHSF™ DS #STZE CHRE 


t 


END GETALPHA3 
$# PATCH NUMBER aes FOR XALGOL CONTAINS 31 CARDS 


“BCLI TO OCTADE OCTAL AND “12 HEXADE HEX STRINGSOSGTT IYO 
$} ACCEPTABLE. S@ LONG AS THE FLAG BIT IS.NOT SE¥, 5//5/72 DHB 
$1 TH]S CHANGES THE WAY THE COMPILER TREATES oCTAL AND HEX STRINGS, 
— $+ EHE AR E—no-tCONSTBERED ASA STRING OR STRINGCON AS OTHER STRINGS 
$¢ THIS DOES NOT CHANGE THE WAY ALGOL USES THESE CONSTANTS BUT 


RR EP LE A A SR RH ne eA ANE eR ermntteRe) SOR Reta Nm Hang gy Ne HAA a 


"COMMENT GETING DOES a CALL ON NEXTENT AND CHECKS TO SEE IF aN INTEGER 
WaS THE ReSubT: IF NOT ERROR = OTHERWISE MAKE SIGN PLUS} 


10070000 
10105005 
10105010 
10105020 
10105030 
19105040 
19105050 
10105060 
10105070 
10105080 
10105090 
10105100 
10105110 
10105120 
10105130 
10105140 
10105150 
10105160 
10105170 
101051860 
10175000 
10733100 


10733200. 


10236000 
13115000 
13209000 
13369000 
13532000 
13593000 
13632100 
13474000 
13675000 
13682000 
13715100 


14168000 


14168100 
14168200 
14773100 
14273200 
14527000 


15006700 


15014000 
15630100 
15030200 
15830300 
15030400 


15030600 
15030700 
15030600 
15030900 


02576030 
02847005 
02887010: 
02847015 


aie 


ruimme 


, un. oY 


Mure UUsIncss 


@| @ 


Teeraenaemenemmennenenenmenmnnanenmemertonnanennmetmecencnese ee a 


$1 IN XALGOL THE STATEMENTS) 
$t REPLABE « 6 « BY "As AND 
eee ee ane eed scoop ce eyoaeeinp 
$s WILL GENERATE THE SAME RESULT, 1/16/74, 
PROCEDURE NOOCTALORHEXSTRINGS 
~ BEGIN CABEL AWAY 3 a eee eye ~ 
ReSuLT#aS; SCANNER % SKIP quote, 
COUNT##O2 GTite 48 Drv Cc) ¥ 16 OR 12 
na BE ETN 
RESULTteS! SCANNERS 
IF CoUNT > GT1 THEN ® > 4 WORD LONG, 
BEGIN ERR(5 2008 GT{TKOT GO AWAY ENDS 
END UNTIL EXAMINCNCR) HH 83 
QemACCUME G23 RESULT2#53 SCANNER) COUNTEMCOUNT@15 
“TR CRS THEN Z-OCTAL STRING, — 
IF OCTIZECACCUME1 Je ACCUME4Ja16*COUNT® COUNT) THEN 
FLAG(521) % NONWOCTAL CHARACTER IN STRING, 
i EAS SE EDSE TF HEXTZECACTUMT ITs ACCUMTS Jr Y 2S" COUNTS COUNT) THEN 
FLAGCS2195 % NON*HEX CHARACTER IN HEX STRING, 


| 


ai cee cl ee arm net 


02847020 
02847025 
02847030 


02001655 
OZ00TE56 
02001900 
02001905 
02004910 
02001915 
02001920 
“02007925 
02001930 
02001935 
02001940 
02001945 
02001950 
02007955" 
02001960 


COUNTEmCCOUNTXC4C) DIV 6% & NUMBER OF 6 BIT CHAR IN STRINGO2004 965 


Se ge ee oe ~"MOVECHARACTERS (COUNTs ACCUM[G] »BeCOUNTAACCUMELI 2393 — 
G¥ateis QesACCUME 1) &eC*#ECOUNT(LY214256)3 
AWAY: & 
TT ERD OC TAL OR HEX STRING] entree ree ies vais aT we 
STRNGXT*ARGHe & 
IF COUNT < 6 OR 


02001960" 
02801985 
02001990 
— 02001995 
02438000 
02703000 


"COUNT HBR AND NOT BOOLEANCG,C18491)> THEN £ NO FBIT STILL OK 02703010 


$ VOIp 02704001 
BEGIN % 
oO BOOT TACORHEXSTRING F 77 
IF BOOLEANCGT1) THEN GO TO ) STRNGXTI ® WAS VALIO 


$ VOID 02765001 
ee anemnentesameneaamnemmensnamententanetiioeeiieeeteee eee ee ee “60 ie 5 One SCANAG ATNY ame rf i ay . a WAS ‘A N . iz RROR : 
$ VOIDT 02782004 
$ VOID 02847001 
oo SEP RT CH ROT FOR KXAEGOL XID CONTAINS “22 “CARDS 
IF ELCLASS®CROSSHATCH THEN BEGIN 
STEPITS SIMPARITH END ELSE 
aii hci i mb ew mini wi iin nn hn TN TEGER SE a amet en Sean dl ols 
IF ELCLASS=#FACTOP THEN 
IF LINKTOG THEN & LAST SyLLABLE 1S NOT A LINK 
nt nn PE CSL SGETI LPT IT  TAOT2IaF OR SLRGT 3 THEN BEGIN’ 
ELBATCI), CLASS+ELCLASS*CROSSHATCH} STEPIT: 
EMITOCOUP)3 EmITOCLOD)s GO EXIT End? 
ren nnn nner conn tO ES BERS SHATEH THEN OT ZFBOOSECEBTYPE ELSE 
IF py # FUL THEN STEPITS 


IF T1#0 OR ELCLASS#FACTOP THEN BEGIN EMI TOCDUP)3 


KE EMEP LOTTI TE TIFO” AND” ELCERSS*FACTOP THEN” 
EMITOCOUP) ENDS 
ELSE IF T1#0 OR ELCLASS@FACTOP THEN BEGIN 


Se EMT TVS TARE ETE TIO” AND ELCTLASS*®FACTOP 
THEN EMYTOCDUP) ENDS 
IF ELCLASSmFACTOP THEN BEGIN 293 
i a de ea la a END 89 
: EGINS 


IF ELCLASSBFACTOP THEN. BEGIN 


EE ELBATET ICL ASSFELCLEASS*CROSSHATCHY 0 


EMITOCDUP)s IF Ti*Q THEN EMITOCLOD) END3 


sienna eeeneeahaa iaeabenescneneraen teen eeenmeme tenn tionsumin naan ten aemmemmmimentemmemelintemaiamtnmamanehameaanamenenm een” acantreecmmnttiaom nae area ee See 


02704000 
02562000 
02763000 
02764000 
02765000 
02766000 
02767000 


02847000 


06003200 
06003400 


06089500 | 


06091200 
060971300 


“O6CsyTq00 


06091500 
06091600 
~ 06152500 
15092015 
15095000 


15095600 
15097000 


15097600 
15098025 


15098200 
13306200 


15306600 


“IS09S500° °° 


(s0980s0" 


Le a seme RR SEER Le I ee cmt aE nee SG ame SS Ae Sate a Ham 4 le 


“P5306HOO 


# @ 


— 


A ne nnn ec A Ge ANTAL Hh co 


($# PATCH 408 FOR XaLGOL,XIII CONTAINS 19 CARDS 
raat ale a “LABEL” EXITOGETCH % 
OR ELCLASSeLEFTPAREN OR ELCLASS#cOLON 
TF ELCLASS#COLON THEN & 
eee ees ee ee ee “BEGINY . 
ST MPLERI @GONSTANSTATIUED SIGNBIBFALSE I 
Biets FLOCLASS#@UNTILVSS 
“PLUGCTRUE SL 33% 
ENDS 
ELSES 
~-(STEPTSBUNTILV OR ELCLASSeRTPAREN OR ELCLASS#WHILEV) 
OR ELCLASS#RTIPAREN % 
BEGIN 3% COLON MAYBE 
momma manne ese ee Ld A OS RO OLON THENS 
BEGINS 
_CONSTANBISTRUES SIGNBISFALSES Beets GO GETC % 
ge ese at See 
IF  PORCLASSCUNTILV) OR ELCLASSSRTPAREN THENS 
GETC! IF SIMPLECCONSTANC »GeSIGNC) THENS 
ea ae ee ENDS “SE MAYBE COLON — 
$# PATCH NUMBER 410 FOR XALGOL CONTAINS 389 CARDS 


St} IMPLIMENTS S¥STEMID» NABS AND NOBITSON, 10/26/72 
ETN S TS THE TPC PATCH FOR ALGOL AND XALGOL, De He BROWN@@=JANy 1973 
TASKID F115#» COMMENT 1633 
| EVENTID =116#» COMMENT 164) 
ee ee . t PCPRO C yo : te s = t 1 Tt ’ . C 0 MME NT 1 65} 
SIZEV m2i#, COMMENT 254 
TASKV 222%, COMMENT 263 
Fr EET Yn” WOREE COMMENT OTF 


BOOLEAN ean} 3 TRUE +r SPROCEDURE" IS FYRST THING TO BE COMPILED, 

% 1,E, 1F WE ARE COMPILING AN IWVOKABLE IPC PROGRAM, 

+. AFTER PROCESSING THE TPC PROCEDURE SPECIFICATION THE 
B CF CONTAINS 2xMARKe WHICH PoINTS To THE PARAMETER 

% SPECIFICATIONS IN INFOe THE FF IS USED TO COUNT THE 
rrr meres crea ee aman cen eos oie Eee “OE *PROCESS* STATEMENTS» IF IPCVOB IS NON ZERO 
% aT WRaP UP THEN THE CODE FILE IS MARKED AS INVOKING 


08017000 
08103100 
08111100 
08117200 
08111300 
06111400 
08111500 
08111600 
08111700 
08113000 
08128100 
081862100 


08182200 


08182300 
08182400 


08182500 


08184000 
0861865000 
08722100 


01778060 
01778065 
01778070 
01298600 
012968650 


01298700 


01404300 
01401110 
01401120 
01401130 
01401140 
OL401T50 
01401160 


® AND/OR INVOKED ANDe JF NEEDED> A PARAMETER DESCRIPTIONO1401170 
SE AERTS ES SEGMENT TS WRITTEN IN THE CODE FILE, 12713772 DHBROWNO14011860 


POWERSOFTEN 27568, 
LASTSEQUENCE #2498, & 760 ” 34 
Segoe ee SORTA eT See aes 
4X20,"CUSTOMS 85700 IFC ren COMPILER ore ", 


01574000 
01575000 
07560000 
01830000 


PROCEDURE TASKAFTR I BUTE HANDLER CF} VALVE Fs INTEGER FS FORWARDS %0776600003061250 


SSS nn tt AEA MING DELAY SDELTAs OTHERS: SYSTEMTOD EXIT? 
MAXANOMINe MAXANOMINes DELAYs ABS» % NABS 
SYSTEMIDs 
nn EB OLEATE CTIA REL BATTER DI TVOD THEN 3" WRONG TYPE BOOLEAN 
BEGIN ErRC103)% GO TO EXIT END3 
mi T2e87T1,027361<9 OR T2250 THEN 
“gO-TO-STIF- T2250-THEN T2°4O ELSE T2etdy 
ABS! PaNAs EMITOCIF T2850 THEN SSN ELSE SSP)§ GO TO EXITS 
SYSTEMIN? EMITLO?)S EMITLOL)& EMITOCCOM)S STEPITS GO EXITS & FPM 
“TEE CCEA SSBEVENTID AND REAGF THEN Z REALTEVENTIDY TS OK © 


te et ent eM 


06060100 


06061100 
06061150 


“1606TS00 ~ 


06061750 
06062000 


(06062050 ° 


06067000 
06873150 


OS090ITE 


BEGIN EMITVceLBATCIIDs STEPITS GO EX;T END & EVENTS ON $TacK06090179 


ge : If ELCLASS#TASKIO THEN % 
= —— BEGIN TASKATTRIBUTERANDLER(CF PS) GO TO -LAMPER ENDS” 
PROCEDURE BIMPFUN} % HANDLES THE BOOLEAN SPECIAL FUNCTIONS 


ee pater Le AEE NERA EP EMRE: ARORA PRN REY See AN PE FN A ep ARRAN A ge Am ES Mean FA mRNA gE SAM pa 


06092075 


“06092077 


06210010 


Fo haesanac eecaacencanemetreatmcrmez ner tememmennmnemeneeanarentr eve eunmamnen meat rer ameter nanan e ceen O a cer e en eee t e ee e eereneroe 


& @ 
em 
ie BEGIN % 06210020 e 
Ge ee ee ——" CABELL OTHERS SFIXIFREE TAVATLABLE eaceul Re , HaPPE NED*@PENDsNOBIYTSONs 06210030 
e EXITe@KRPN3 06210040 e 
SWITCH % 06210050 
mm UN OP HERS GET XE REE DAVATOABLE SACQUIREDHAPRENED SPEND, NOBITSONS-=  —§ 06210060 
e DEFINE HAPBIT w 68, & BIT (4494) 15 ON ITF EVENT HAS HAPPENED, 06240070 e 
AVLBIT | = 1#t BIT C4a7#4] IS ON IF EVENT IS NOT AVAILABLE, 06210080 . 
{= 4, oe ee BTR THE: AVLBIT tS On THEN EVENT, FF CONTAINS 06210090 
e % THE MIX INDEX OF THE PROCESS IN CONTROL, 06210100 @ 
REAL TleT23 06210110 
Ba eg aia er eh tis toe 06210120 
- 06210130 @ 
mu is TisseLBaret), (2716) $6 THEN % FIRST PARAMETER MUST BE EVENT 06210140 
per eee “BEGIN ee Oats, : eg nag*t 06210150 
@ IF STEPT # LEFTPAREN THEN BEGIN ERR(105)3 GO EXIT ENDS 06210160 ry 
IF STEPI #€ EVENTID THEN BEGIN ERR(554)% GO EXIT END! 06210170 
TAT RELBAT ETT “STH EVENT _ OS 2{0{ BO 
eo. IF REALCIPC yoB),£€3341517 # 0 THEN & COMPILING AN INVOKED IPC yoB 06210190 e 
IF T2ef917) * 658 AND T1 $ 2 THEN & CANT FIX OR FREE A 06210200 
ee ee PAGES SRI ‘3 FORMAL LEVEL 1 EVENT 06710210 
@ STEPITS 06210220 @ 
END3 06210230 
men OE NE FT ELT ETO PROPER SYNTAXER © 06210240 
e OTHERS: GO EXIJs % ACTUAL BOOLEAN INTRINSICS WoULD GO HERE 06210250 e 
FIXs % MaKe THE EVENT *eeNOT&ee AVAILABLE AND RETURN FORMER STATE 06210260 
mn REEL SE MARE” THE EVENT sare AVATLABLE #*ee AND RETURN FORMER STATE 96210270 
e EMYTVCT2)3 EMT TOCHOUP)3 & 2 COPIES ON STACK 06710280 e 
EMITPATRCHAPBITsLND)3 % RESETS EVERTHING BUT HAPBIT 06210290 
eS a iene eco aa —FHER EMT TPATROAVL Bt Fe bOR Dt 2 °F TX BEF ON: SO NOT AVAIL 06210300 © fe 
e EMETNCT298 EMITOCSTO)# % CHANGE IT 06710320 e 
EMITOCLNG)S &% RETURN TRUE IF IT Was AVAILABLE» 06710330 
See ChRINT 8 06210340 
e AVAILABLE: % RETURN TRUE IF THE EVENT IS AVAILABLE (AVL BIT OFF) 06210350 @ 
EMITVC#2)3 EMITOCLNG)3 GO CKRPN3 06710360 
ACQUIRET 2-WAIT FOR AVLEBIT OR TIME OUT ~ 06210370 > 
e PEND! % WAIT TILL HAPBIT OR TIME OUT 06210380 e@ 
EMITNCT2)3 3 ANDRESS OF THE EVENT 06710390 
rn MET ECTE TPES THEN AVEBIT ELSE HAPBITIE © 06710400 
ry IF ELCLASS#COMMA THEN BEGIN ERR(556)3 ae EXIT ae 06210410  ) 
STEPIT# AEXPA & TIME OUT [N SECONDS 06210420 
nn EAE TPATRUGSSCOMIT ZS °GO DO TT a 6210440 
) EMITOCBEL)# EMYTOCDEL)3 & LEAVE RESULT ( OF FUNCTION ¢ ON STACK 06710450 e 
GO CKRONE 06210460 
—-—-—- HAPPEQEDTS-RETURNS TRUE-TP THE: EVENTOHAS THE HAPPENED BIT ON 062104570 
e EMEITVCT2)3 EMITPAIRCHAPBIT#LND)? EMITPAIRCHAPBITeEQL)3 06710480 ) 
GO CKRENS % 06210490 
ENTREE NOT OO vee “os2zr0500 ~ 
e PANAS VEMITOCUNG)| EMITPAIRCOsLNG)3 EWITOCEOL)s 06210510 e 
GO EX 06210520 
LEER SEED Newspapers RIPAREN THEN ERRC104) ELSE STEPITS “76210530 
e EXITS 06210540 @ 
END BOOLEAN IMPLIED FUNCTIONS3 06210550 
ree D-THEN GO-TO LISTS ALWAYS ARITHMETIC: ~~ O6227S500°° 
@ a GO TO Li8s % FOR SAFETY ONLY 06734500 e 
bigs IF BOOLEANCELBATCI),¥O) THEN % BOOLEAN INTRINSIC 06235000 
“+9: —~*D-ENDT “ZS ALLOW is San AND £° AFTER? tT Renee 62339500" citieinie® cat vas cash pee oniten. SoBe. at neath Shinty See la bei enadaee, maeshs sees asim St Geng tees Oe De Pega tee it paee Ah 
e Li8% Lidt L208 L22t £238 L24t Laer L278 L288 L311 L328 L338 06236000 e 
© @ 


o ¢@ 


@ 
07217515 ° 
Vo ARGUMENTS GR THE TNRTNC TE TETOUL ET IMPLIMENCED UN LIMECEAs GEN CRED 07217517 
@ COMMENT If THE INTRINSIC TS ONLY IMPLIMENTED IN LINE EMIT AN ERR$ 07315100 e 
IF Me SL eau (3382]) < o THEN FLAGC552)3— 07315200 
= Soepaute ee Bae at we OR SERZOO- . 
e BEGIN TASKATTRIBUTEHANDLERCFS)) GO EXIT END3 07729800 e 
PROCEDURE IPCSTATEMENTCW)) VALUE W3 INTEGER Wy 07560000 
To BEGIN OS VALUE DFW PRESSED OD ep mB 07760100 
e LABEL EXIT» LIBERATE»PROCURE PWAIT>» CAUSEORESET? 07560200 @ 
SWITCH STMTi= LIBERATE*PPROCURE®WAIT+eCAUSE*RESETS 07560300 
<3 E ta 3-BIT Coarryd SON TF THE EVENT HAS HAPPENED —“o7TS60a00" 
@ AVLBIT@#i#s & BIT C4711) TS ON TF THEN EVENT IS NOT AVAILIABLEO7560500 @ 
Real €3 7760600 
orn PEPE F-CEF TP AREN THEN BEGIN ERRCL05)5 GO EXIT ENDS “OTT6OTO0: 
‘@ IF STEP! # EVENTID THEN BEGIN ERR(557)s GO EXIT ENDS 07760800 e 
; EteeLBaTLIds 07560900 
; | WON 5 “97561000 
ie LYBERaATE!t & CALL COM 44 PASSING!# EVENT spony O» NOT O » ere AVLBIT 07561100 e 
é PROCURE! & CALE COM 44 PASSING! EVENT ADOR, 4+ NOT 0 @ GETS CONTROL 07561200 
£ ATT CALE COM GG” PASSING EVENT ADOR® Gs NOT 0 = SLEEPS TILL HAP 07561300 — 
:7@ EMITNCE)3 07561400 e 
3 EMITLCIF Wet THEN O ELSE IF Wea THEN AVLBIT ELSE HAPBIT)3 07561500 
Be aa nae ara eae Ee ese « CCHIT Th WEY THEN EMTTOCENGIE EMT TPATR CGS COMTI” “O7561600 
‘oe EMITOCBDEL)$ EMITOCDEL)s EMITOCDEL)s & CUT BACK STACK 07561700 e 
: GO EXIF; 07561800 
CA SEG STURN ON HAPPENED BIT 7 UO 075861900 
® RESETS ® TURW OFF HAPPENED BIT 07562000 e 
EMITVCE)S 07562100 
m TIF - Wee THEN LOR EDSE GUNG?” ~OTS62200°° a 
oe PR Wad. THEN EMTTOCLNDI3 07762300 ®& 
fn, EMTTNCE)? Ra OLED 07562400 
aE TESTER TF REP AREN THEN: ERR (10482 ELSE” STEP ITS: O7562500— 
e END IPC STATEMENTS 07562600 e 
PROCEDURE PROCESSTATEMENTS 07565000 
EPCEXTERNAG CAPS AP OF AP3-3t TASKIDITD ~ “OFSGSORS . 
© REAL. f£eT! ; 07765050 e 
INTEGER NoMARK, PONT} 07765075 
a a Seo a ok 10 = Stan ee -OFS65100° 
e DEFINE FAULTCF) & BEGIN Tiss G0) BAD NDE, preieri5es 075651325 e 
IPCJOB, CFF) teBOOLEANCREALCIPC JOB, CFFJ24123 x COUNT PROCESS STMNTS 07565150 
m “STE PROCTO THEN” FAULT TSS9II- MUST BE EXTERNAL” PROCEDURE “O7765175 
eo. SCATTERELBATS 07565200 @ 
ipa EMITOCMKS)3 3 MARK STACK FOR CHAR MODE CUT BACK WITH XITR AFTER COM 07565250 
ee ee CHARKTELINKE INCRE TRO THEN GO "T6232 f° PARAMETERS © “O7T565275" 
e IF STEPI # LEFTPAREN THEN FAULT(105)3 07765300 ® 
Do BEGIN 07765325 
— - - ’ : - : FIVJTVOyY THEN 3 VALUE e aeeee, ee ee ee ee ee ce ee 
e i. ‘BEGIN STEPIT) z 07565375 ) 
He IF EXPRSS#CIF TeChaSS*BO00ID THEN BTYPE ELSE ATYPE) THENOT765380 
a nen et lee e to Peasy OTT6S365~ 
) END & 07765390 @ 
ELSE 4 07765400 
* Bay 3 MEK Cc A ARE LRN OLAPSO OR LE RNAPII oN MOE RI ay piaiaes r ; pa SOS i iat i ict bith nit 3 mean i ete a a a pu = Soh as _ tegatine 
@ w Te ‘STEPL eT, CLASS THEN FAULT(123)1 EVmeLBATETD 07565450 @ 
OF: BOOARRAYID $ ELCLASS s INTARRAY TD THEN 075654675 
e pO UNTIL STEP @COMMA OR FLeLASSeRTPARENS 07765525 e 
@ @ 


IF ACLASS#TASKID THEN GO TO LODPOINTs © NAME CALL ON TASKID 


L asagenmaanaee mana 


5 
i 
I 
i 


on teeteenes 


ne HE “ere pent ie HIRE tng tne me fA RN RO RT OTT IRL Gan em RU ARR HEAL ARONA RIHANNA NR A PE ne Rn A EN GL NE te Han ek 


aac 


rurms, it. ov 


MOOre OuUsINEss 


® @ 


—> 


END 
a eg 
BEGIN Wri NCEN 
TherF ELCLASSeEVENTID THEN 1 ELSE 23 STEPITS 
END NAME CALLS! 
EMITLCF)$ & PARAMETER TYPE 
ne Tt 
UnTIL ELCLASS # COMMA OR beatans 
IF PCNT # N THEN FAULT(C128)3 
TT —— TE ERCLASS © RTIPAREN THEN FAULT CIOS) 
Zt IF STEPI.# LFETBRKET THEN FAULT(560)3 
EMITLONys % NUMBER OF PARAMETERS 
TF BS TEPT “#- TASKTD THEN FAULTCS60)5 © 
EMITPAIRCELBAT£ IJ »LOD)3 
___IF STEP] # RTBRKET THEN FAULT(560) ELSE STEPITS 
PATRUGZICOMIT & GO DO TT © 3 
EwlTNCXITRI} & CALLS FIRST SYL OF SEG 4 @EXC# To cur BACK STACK 
IF FALSE THEN 
eer EOE ERR E sae | eee etre 
END PROCESS STATEMENTS 
PROCEDURE TASKAFTRIBUTEHANDLERCF)$ VALUE Fs INTEGER F3 
TT <M MENT TASH KTTRIBUTE HANDLER PROCESSES ALL TASK ATTRIBUTES, 
IT IS EXPLICITLY CALLED IN 2 PLACES! 
11 IN STMT PASSING F = FS, 
TRIS HANDLES TASK ATTRIBUTE ASSIGNMENTS BY CALLING AEXP, 
2! IN PRIMARY PASSING F = FP, 
THIS ALWAYS LEAVES A VALUE ON THE STACK, IF AN ASSIGNMENT 
S-REGUTRED IT TS MADE WITH A *SNH", IF NOT THE CURRENT 
VALUE OF THE ATTRIBUTE JS LEFT ON THE STACK, 
ACTUALPARAMETERPART AND BPRIMARY DIRECT TRAFFIC THRU THE 
” “ABOVE-ENTRY POINTS To DO THEIR WORK, 
END eouukat; 
BEGIN 
an ERE ED INTEGER A tNOXT- 
EsPELBATEII3 & TASK ID 
lf erty = GER1OD THEN 
STeRiai 
IF ATNDX$8® 
Tomermemnrnnn eno TASK THEN O ELSE 
If QO » "4mMer700" THEN 4 ELSE 
1k @ © "367900" THEN 2 ELSE 
nn Oe SEPM TREN 3 ELSE 
IF @ 8 "7STACK" THEN 4 ELSE 562 
2562 
——— FHEN FERGCSOZIF 2B UNRECOGNIZED ATTRIBUTE 
IF STEPE » ASSIGNOP THEN 
BEGIN & SET ONE 
TF ATNGXES” THEN FUAGCS6395° % CANT BE CHANGED 
STEMTTS AEXPS 


Pe ne Pe np 


07765550 
07565575 
07765600 
07765610 


O7765615 — 


07765625 
07565650 
07765675 
07565700 
07565725 
07765756 
07765775 
07565600 
OTT65825 
07565850 
07765875 
07765900" 
07565925 
07565950 
07765975 
07765985 
07566000 


07766025 


07766050 
07766075 
07566100 
07766125 
07566150 


—OTTEBY7S 


07566200 
07566225 
07766250 
07766275 
07766300 


— 07566325 


07566350 
07766375 


07766800 


07566425 
07566450 


' 07566075 


07566500 
07566525 


* 07566530 


07566575 
97766600 


 OTS66625° 


07566650 
07566675 


07766700 


07566725 


IF ATNDXe3 THEN & TSK,STATUS REQUIRES A COM FOR POSSIBLE Ds, 07766730 


BEG THEMTTPATRUESLODIS “EMT IPATRORET CONTI 


“O7566735 


EMITOCDEL)# IF FeFP THEN EMITOCDEL)# & CUT BACK STK O7766740 


EwD % 
BEGIN EMITLCATNDX)3 EMITNCE)3 


ne 


07566745 
07566755 


ieigt 
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1 


ENDI% 


END 
ELSE 


EMITOCEIF FeFP THEN SND ELSE STD)3 


TR FES THEN FUAG(S564) Z MISSING te 


ELSE 


BEGIN EMITLCATNDX) EMITVCE) ENDS 


“END” 


ELSE ERRC561)3 & MySSING "," 
END TASK ATTRIBUTE 
a. NYe YF 


SS Se 


692 STEP 3 UNTIL 7285 732 STEP 4 UNTIL TAGy 


Ne UNE Tbe” STEP TOBE GIN “ORE ) 
ELCLASSMDECLARATORS AND ELBATEN), ADDRESS#PROCV3 & IPC 09252025 


HANDLER? 


Qos P8LIBER” THEN 1 ELSE 
@ we "7PROCU" THEN 2 ELSE 
Q = "SCAUSE”" THEN 4 ELSE 


“Q's "SRESET™ THEN 5 ELSE 03 


O THEN BEGIN [PCSTATEMENTC(N)$ GO XXX ENDS 


"7PROCE" THEN BEGIN PROCESSTATEMENTS GO XXX ENDS 
BEGIN B IF T¢2 YS EVENTID YHEN TTS YPC WATT © 
IF TABLECI+#22mEVENTID THEN 


BEGIN IPCSTATEMENT(3)3 GO XXX ENDS 


“NVa{s Ct823 


END ELSE &% 
0€67T0132000000440000, "3F 1X00", 


0¢T0132000000240000» “"AFREEO"» 
0¢T0132000000640000, "4PENDO"» 


“OCTOTINONDNBN0AN000s *3TANOO"® 


0¢T0130000006360000, "8SYSTE”s» 
0¢70132000000760000, “8NOBIT", 


OTIZO0ONSORSOONNT TAT RUT" a: 
0¢70132000060360000, "9AVAIL™s 


0c T0132000000560000, "8HAPPE™, 


———OETOS30000Z60000000, *aTASKO™, 


0¢T0430000270000000, "SEVENT"» 
0€T1440000230000000, “4S1ZE0"s 

: OOOO; MHFASTON® 9 
0¢T00300002%0000000, "4SLOWO"» 


“TT Utt 
0¢7T2000000080004050, 


” ” 3 


—“OCTOT300000HS 2400007 NANABSO"s © 


"M1 p00000", 
*"sONQD000O0", 


“REOOO00N", 


WaBLEOOOO", 


*NEDOOOOO", 


“Op COMMENT SORTA UE 
COMMENT LASTSEQUENCEs berecenes } 


00T2000000000100000+ 
OCT2000000000100000+ 
0€6T2000000000100000+ 
007T2000000000100000. 
0CT0000000011100000>» 
06T2000000000100000» 
0¢6T2000000000100000, 


oCTZo000000000100000, 


0¢T2000000000100000, 
0¢7T2000000000100012, 


BTS4 09214835 — 
COMMENT POWERS OF TEN 4 


150 STEP 2 UNTIL 756 


IF ELCLASS¥BEG NV THEN ® COMPILE AN “INVOK ABLE IP¢ PROGRAM, 


aks mm met tt ““BEGTN- can eee te me 


IPCYOB ts TRUE} biateqi % BACK UP TO LOOK AT PROCEDURE 


END3 


RE CP EE HEN EE ENOKED™ ORD DNV OR ING TPE 


ene ea ee etal finned a magi etiam oe acne 


BEGIN 
IF MARKt@REALCIPCJOB),€33915] DIv 2 # 0 THEN 8 INVOKED IPC 09405510 
PF TDARRAY TOT ONT ETAKE HARK” FO THEN SHAS” PARAMETERS” 


BEGIN g BUILD PARAMETER DESCRIPTION SEGMENT 


LtxO} 


DOPE OG ITE ix 


a ee nem at RT LEAR TR ERENT ANNE eRe A 


IF TCL ASS lac Tis TAkeceaahacdatel ie eats. 


mw EVENTID THEN 1 ELSE 


“TF BOOARRAYIDSELTLASSSINTARRAYVID THEN 4 ELSE 


IF BOOLEANCT,VO) THEN 3 ELSE 2 


eae ARERR E ERE erence nba teiA Ae Am l damm Mn Ag GERRI a NE Had ote we 


07766760 
07566775 
07766800 
07766825 
07766850 
07766875 
07566900 
07766925 
05766950 
07566975 
07810200 
07810210 
07810220 
07810230 
07610240 
07810250 


07825000 


07825100 
07825200 
07825300 
07825400 
71309214424 
371609214822 
471909214423 
2722092144024 
372509214425 
272809214426 
%73209214427 
B73609218R2E 
374009214429 
274409214430 
274809214031 
%75009214432 
%75209214433 


3756 09214436 
2758 09214437 


£759 09210440 © 


3760 09214445 
09214513 


09252000 


09252100 


09252200 


09252300 
09252400 


09405505 
09405520 
09405525 


09405535 
09405540 


09405550 


6 09605515— 


-“o9R0S5Sz0°"" 


09405545 


@) @ 


UNTIL LANs 
eae r+. INVOKED” [PC JOBT 
ARRAYE2],£312] te2+REALCMARKAO)3 
vo SEGOTZT LOb2T we VARESTSCTALD BTNVOKED TPC JOBS 
END IPC SET UP) 
"TE TFORMALFVSPTOG) AND NOT P2 THEN’ ” 
BEGIN 


IDARRAYE9] }eMOVEANDBLOCK (PRT »No4)3 
1D 
COMMENT SEGOT2), C3#1) = JARC2),(6%1] * IPC JOB 
IF BOOARRAYIDSTYPESINTARRAYID OR TYPESTASKID THEN 
PutePJo1s % COUNT PARAMETERS 


ELSE Pus & STACK 
END 
Sa nnSIIIRAIRERERIEEE 4 "7-1 -EcaeEnaaaRERRRaEaaeEn Rea 
IF STOPGSP THEN ADDRSFS#0 
ELSE ADDRSFItsGETSPACE(P201)8 


rata 


TF BOVARRAYID 
ariterr: PTOG THEN IF 1PCJO8 THEN LEVEL ELSE LEVELF ELSE LEVELS 
$ VOID £3371004 — 
DURE TASKE 


Furma, sou. ay 


¥°¥ DOVES “TASK. DECLARATION” 
BEGIN 

LABEL EXITS 

UN RARR % 

IF GTAILUW19#0 THEN FLAGC25)5 ® CANT USE OWN OR SAVE 

TYPEViaTASKIDS 

If NOT SPECKOG THEN EMITOCMKS)3 
ENR ITLP EVE BE DOES” BEL OF THE ETSTE 
. IF ELCLASS#SEMICOLON THEN FLAGCO)S 

If SPECTOG THEN GO EXITS 


muyure vusnics> 


EMITPAITR¢1eSSN)$ &% ASK BLOCK CONTROL FOR SAVE TASK ARRAYS 
EMITV(5)3 & CALL BLOCK CONTROL 
END TASK ENTRES 
TPCOMPLESE s TASKDEC sEVENTDECs & 1 La ¢ 


LPBwc36tt2ies P PUFLORE1615 Fs x 
IF SPECTOG THEN & DOING A PROCEDURE SPECIFICATION 
IF BUPwPy THEN _® ALL SPECIFICATIONS PROCESSED, DO CLEAN UP, 


a te et Ot 


FEBSFZERO} & 3%1600" = F440, PARAMETER BASE ADDRESS 


WHILE PJ¥CIF IPCJOB THEN G,PJFLD ELSE G,ADDRESS) 


-—MYPEVTEG CLASSI 

IF IPCJOB THEN 
GyPUFLDIeO & 

1F TYPEVaFRMTID “OR TYPEVSUPERFRNT ID THEN 
G,ADDRESStaFteFs2 % LEAVE ONE FOR INDEX 


| a ne a ae RA a Anime eat nl ee arte ee 


IF BOOARRAYID $ TYPEV § INTARRAYID THEN 


a hte a nn 


ae Re AR a Te 


TONKS KK"EDORSFT RIF TPCIOB THEN GETSPACEC(TRUES1)+64xPJ ¥ PRT 


STYPESTNTARRAYID OR TYPESTASKID AND NOT TPC VOB 


see trent ticerar ron STZEy # DIMENSTONS) # TASK 


PTRDEC sDEFINEDEC, AUXS1 ZERR» AUXS1 ZERR, TASKDEC sEVENTDEC: 


09405555 
09405560 


(09405565 


09405570 
09405575 


09405580 


09405585 
13330550 
13342000 
13342250 
13342500 


T3IF2750 


13343000 
13343500 


133448000 


13344500 
13345000 


13470000 
13371000 


TTIASVAO | 


13595025 


13595050 
13595075 


13595100 


13595125 
13595150 


13595175 


13595200 
13595225 


“T3595250- 


13595275 
13595300 


13595325) 


13595350 
13595375 


13595425 
14016700 


14016600" 


14021000 
14023000 


14070000 
14971000 


~~ yyoTZ000 


14073000 


DO BEGIN % LOOK THRU PARAMS LAST TO FIRST & PUT IN PROC+INFO014074000 
FR TAKECBUPTRLASTING OFF “2 -ELBAT OF CAST PARAM” SPECIFIEDTGOTSO00 ~~ 


14076000 


DO GIsTAKE(BUPS=BUP*TAKE(BUPs1), PURPT OE 5 GET PueTH ONE14077000 


14079000 
14061000 


14063000 
14064000 


—THOsSOOO" 
14086000 


13595400 


{aUEIgI9I9 


RT a RR RE A HA IR Ie APE I A 


@ 
-_ 
a Pee ue eet ee Pre ; ae $l ccehenere c 14087000 
GT{fsNISTAKECBUP STI 3e@G,INCR)3 14088000 
| G ADDRESS taf terpeNtaNeys xLEAVE ROOM FOR LOWER BOUND14089000 
WHILE NtwNei#0 po 14090000 
aa nn TT TARETBUPSTIONT <0 THEN, 19097000 
e PUTCABSCT28C4X( FN) 42IL PB) sBUPS+TI4N) 14092000 
END 14093000 
peemnmrmnenmnenens so eure ESE ADDRESS TaF a P ey} 14094000 
e PUTCGsBUP)S GeINCRteGTi# & UPDATE PARAMETER INFO 14095000 
_ TF _FWDTOG THEN. 14096000 
RPO et eae Map ers eRe ae “BEGIN {EO9TO00 
e IF COTS PWT AKECHARK#PU)) scLASS¥G, CLASS | THEN 14098000 
FLAGC49)3 & CLASS ERROR FORWARD To ACTUAL 14099000 
emcee ccna cenienniamananin ae amuse FEE HE VORG EVO THEN FLAGTSO)? 14100000 
:@ END 14101000 
‘ __ELSE 14102000 
z "PUT TG MARKEP ITY ES PROCEDURE ADDITIONAL INFO ENTRY {4103000 
‘@ END 14108000 
é UNTIL PJiwPywtm0d & 14105000 
c Ps ey Ee ““SPECTOGIEFALSES vs 14106000 
7@ IF IPCJOB THEN % WRAP UP IPC SET UP & START COMPILE 14107000 
3 IPCOMPLETE! BEGIN 14108000 
5 re sO JOB TRBOOLEANT 2XMARKIS ZS FALSE © POINTS TO «+ INFO — L4TT3000 
‘oe IF STEPT#¥BEGINV THEN FLAG(551)3 14114000 
ELBATLEI],CLASS#aSEMICOLONS 14115000 
ee ae “GO TO STARTS S NOW WE CAN COMPILE THE IPC J0B 14116000 
@ END} 14117000 
GO TO HFS & NOT IPCs. GO COMPILE THE PROCEDURE 14118000 
EY SPECTER ICA TION WRAP UP Tr fou LaTTv000" 
e STOPDEF NE MmDUMPVECGTALCJiwsel) P@ELBAT IID, ADDRESS) #MON | TORV 14129000 
AonbheAbiabla) 14130000 
Se Pee Tae 14133100 
e IF SPECTOG Ine % VERIFY THAT PROPER TYPES ARE BEING PASSED 14133200 
IF BOOV ¢ GteGTAtiry) §$ ANTV “OR (GRARRAYV oR GREVENTV THEN % OK 14133300 
er SEP CAR C ISO So ¢er33400" ~ 
e AUXSIZERR! x 14135500, 
TASKDEC! TASKES GO TO GOTSCHKs 14155500 
EVENT DECT—— PST eTRUET ENTER CEVENTIOD? GO STARTS 14155700 
e SCATTERELBATS 14302400 
IF IPCJOB THEN & MAKE MYSELF" TASK ARRAY ENTRY AT ‘ReOQ5 14302200 
ei 5 nai Oe ae . ~ geyORs00 
e TYPEVEMTRSKIDE COUNTIR63 SCRAME®CACCUME 1) 1@"6NYSELM) MOD 1253 14302400 
ACCUME2]EwORMFMELIA3IS TF 14302500 
—_—-———-———F0- DOT TARYHAYT ° ee eae 14302600 
@ ENDS & 14302700 
$ VOID 14305001 14305000 
HEN s ous 
e IF LEVEL s 1 THEN LEVMODECLEVELEALEVELeS 7! eHODE ELSE arr t 14323100 
Pyieoe. 14323200 
: See AaE See ere tag2%000: 
e 1F STEPI¥SECRET THEN FLAGCOI0) » % WAS NOT IN PARAMETER L1§714345000 
ELSE 14346000 
e ; GRPERBATELUE 14348000 
1F 1Sc1F IPCJOB THEN GsPUFLO ELSE G,ADDRESSISPY THEN 14349000 
eee ee ageens: WAS NOT TW FORMAL PARAMETER LIST 19380000 °° 
@ 14351000 
@ 


PUTCTAKECGI81C1004791]02G)si x MARK AS VALUE PARAMETER 


te me meet eae eine ie mtNnatnphe HANNE AMIR Rm Rant Ye RY (AAAI RN em YA APN NE oy a | Wm 9 


S—FOR-XALGOL CONTAINS 6 CARDS 
$$ THIS CHANGE INSURES THAT THE LEXICOGRAPHICAL LEVEL OF THE TASK 1D 


gent 


(07566425 


00000010 


Leasmetaataenantemenalcnamenennensiaenmnaandeeammamntnarammntonetianenment onan Tandtaamenetenenesatestiomenrsatie ice naan eee ee ee re ee ee ee ee 


@ 
i END & 14352000 
(ES NU TE e 1F354001~ 14353000 
e IF IPCJOB AND PJeO THEN ® O PARAM IPC PROCEDURE DEC 14377000 
GO TO {PCOMPLETE) & 14378000 
- TF SPECTOG THEN GO TO START) ZX AND PROCESS THE SPECIFICATIONS ~ ~-ya379000 
e IF STEPIT@FORWARDY OR Qe"GEXTER” & EXT ILLEGAL PARAM CK IN PROCESS 14467000 
IF ELCLASS # FORWARDV THEN % EXTERNAL 14469025 
a a te Bis - 7 a 14469050 
@ IF PROINFO,CLASS # PROCID THEN Fuaetase) % MUST BE UNTYPE14469075 
ELSE PUTCTAKECPROINFO)&IPCPROCID CLASS*PROINFO)S 14469100 
Bp pee ae ee eR Roe ee eer 14469T25 
@ ELSE % 14469150 
$# PATCH NUMBER 411 FOR XALGOL CONTAINS 22 CARDS 
aia —St THTS-DOCUMENTS-THE TPCUERROR MESSAGES, 1/5773) : 
) 021 BLOCK! SAVE OR AUXMEM APPEARS IMMEDIATELY 00041000 
BEFORE IDENTIFIER (NO TYPED, 00042000 
TTT oT PCPROCEDUREDETT AN TOENTTIFIER” OF” THIS CLASS CAN NOT BE 00306900 
e . PASSED TO AN INVOKED PROGRAM, 00306905 
| 554 IPCPROGEDUREDEC! MISSING BEGIN AFTER SPECIFICATION PART, 00306910 
nnn tg RETOALPARAPART YS THIS INTRINSTC CAN NOT BE PASSED AS A 00306915 
@ FORMAL PARAMETER, 00306920 
553 PROCESSTATEMENT? A TASK IDENTIFIER MAY NOT BE PASSED AS AN 00306925 
Te Temes meee = EXPLICIT PARAMETER TO AN [NVOKED PROCEDURE, 00306930 
® 554 BIMPFUNE PARAMETER MUST BE AN EVENT, 00306935 
555 BIMPFUN? AN INVOKED PROCESS CAN NOT FIX OR FREE AN 00306940 
ACORN ep ER eres Bence ee uP noe Oe gi oy ‘EVENT PASSED TO IT, ; 00306945 
e 556 BIMPFUNS MISSING COMMA IN ACQUIRE OR PEND FUNCTION, 00306950 
557 IPCSTATEMENTS PARAMETER MUST BE AN EVENT, 00306955 
TT SST BLOT RT AN EXTERNAL IPC” PROCEDURE HUST BE UNTYPED, 00306960 
eo 559 PROCESSTATEMENT! PROCEDURE MUST BE DECLARED EXTERNAL, 00306965 
560 _ PROCESSTATEMENT! MISSING OR INCORRECT TASK PART, 00306970 
BEE H "ER SKATERT BUTEHANDLERT MISSING ¢C IN TASK ATTRIBUTE PART, 00306975 
® 562 TASKATTRIBUTEHANOLERS MISSING OR UNDEFINED TASK ATTRIBUTE, 00306980 
563 TASKATTRIBUTEHANOLER? TASK ATTRIBUTE IS NON ASSIGNABLE, 00306985 
—- “S6e-—~ —TASKATIRIBUTERANDLERT” MISSING ASSTGNMENT OPERATOR IN TASK 00306990 
ae ATTRIBUTE ASSIGNMENT STATEMENT, 00306995 
$# PATCH NUMBER 412 FOR XALGOL CONTAINS 8 CARDS 
nn FES PROT DES FRE RO NO SEAT EMENT > FOR TPC SO ONLY VALUE PARAMETERS 
e $3 CAN BE PASSED TO PROCESSES THAT IS "RUN", 3/49/73, 
565 PROCESSTATEMENTS PARAMETERS TO A "RUN" TASK MUST BE VALUE, 00307000 
- — TE RUN TP CVALHEONL PROCEDURE TAP] TAPZIETASKIDJ3 O7T765035 ~ 
e es REAL EeT? BOOLEAN RUNNER) % SET TRUE IF CALLED AS A "RUN® 07565050 
RUNNER#@Q,(A2t6)80% KZ STH CHARACTER OF "RUN® # O» PROCESS ® E, 07565135 
RO NER THEN PRUE TES OS TF BALE RUN-PARAMS-MUST-BE VALUE OF 765455" 
e IF RUNNER THEN EMITOCSSN)3 & STARTUSERTASK USES = FOR A *RUN® 07765815 
IF @e"7PROCE* OR Qe"3RUNOO™ THEN & JPC INITIATION 07810245 
<= BE GIN PROTESSTATEMENTS GO XK END 8 te O7810250 
e $# PATCH NUMBER 413 FOR XALGOL CONTAINS 2 CARDS 
$! MAKES TEMPORARY ASSIGNMENT FOR EXTERNAL PROCEDURE DECLARATIONS, 
terete nn S$rs7e07rts- peaget i SB hd Eves tea a 
e SPRTL (PRT MAX I@PRT[MAX#4), £3685) )%e & REUSE PRT CELL 14469110 
BOOLEANC*) AND NOT BOOLEANC2@PRTIMAX, 043459)3 14469445 
; —$¥-PAICH NUMBER 419 FOR XALGUL CONTAINS I CARD _ ee 
eo. $1 STOPS DEFINES WHIN PYCKING UP ATTRIBUTE NAME, 3/22/73 
te STOPDEFINE SaTRUES STEPITS &% PICK UP ATTRIBUTE NAME = NO DEFINES: 
@ 


ara 
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$1 IN A PROCESS STATEMENT IS NO LOWER THAN THE *DEEPEST™ NAME 00000020 
Tommi SE PRRAMETER IN AN INVOKATION, 874773 DHB 00000030 
566 PROCESSTATEMENT! LEXICAL LEVEL OF TASK LESS THAN A NAME PARAM, 00307005 
INTEGER Ns MARK,PCNT,MAXLVLE &_ 07765075 
aa asa a aaa ae 1 2 “T, CLASS THEN FAULTC193)F © WRONG TYPE 07565450 
. IF CEtwELBATEIJ2 LVL > MAXLVL THEN MAXLVLEWESLVLE & 07765465 
IF CESsELBATEI}).LVL < MAXLVL AND MAXLVL > 8 THEN FAULTC(556)5 & 07765635 
oe ee EMTTPAIR(ESLODIT 8” Oo — 077658650. 
$# PATCH NUMBER 416 FOR XALGOL CONTAINS 4 CARDS 
$1 THIS CHANGE INSURES THAT AN IPC PROCEDURE 1S NOT COMPILED TO "GO" AND00000010 
—_— NO WORE THAN 29° PARAMETERS ARE ALLOWED IN AN 00000020 
$3 JPC PROCEDURE DECLARATION, CSEE MCP PATCH 706) 6/4/73 DHB 00000030 
567 _ PROGRAM? COMPrLE AND GO OF JNVOKED Pc PROCEDURE NOT ALLOWED, 00307010 
mmm SOE BLOCKT AN INVOKED TPC PROCEDURE CAN HAVE ONLY 29 PARAMETERS, 00307015 
IF SAVETIME®O THEN BEGIN ERRORTOG#aTRUES FLAGCS67) ENDISGO WHERE09252250 
IF £PCJOB THEN IF Py > 29 THEN FLAG(568)3 % TOO MANY PARAMETERS 14335000 
SE PATCH NUMBER G17 FOR XALGOL CONTAINS S CARDS” ~~ st ~ 
: $1 THrS ADDS A WEW TASK ATTRIBUTE *"JNITIATOR™ WHICH CAN BE SET AND READ, 00000010 
$to1F “INITPATO@"™ 18 NON ZERO WHEN A TASK 7S INITIATED IT WILL APPEAR 4$00000020 
TT SFE TF TT ORTET NATED FROM THE STATION WITH THE INDICATED INTERNAL LINE 00000030 
$t NUMBER, 11/21/73 OHB 00000040 
IF QQ = "7STACK™ THEN 4 ELSE 07566575 
See earl eer eatin eeepc iia Annan hs sree ERE MOTT FT ~* THEN a. ae ELSE . s 07 56658 0 : 
562 3 07766599 
= 562 % 07766600 
mmm EEE CEE EMTICCI TS EMTTLOGTAICOII3 ®B SIZEs # OLMISIONS, # TASK 13595325) 
$# PATCH NUMBER 418 FOR XALGOL CONTAINS 2 CARDS 
$3 THIS PROVIDES AN INDEXED ARRAY ROW WRITE (OF THE FORME 00000010 
sR TEC Tg AERP s ARRY LIND J 73" o ‘on00002z0 
$1 77 18 THe USERS RESPONSIBILITY TO ,NSURE THAT AEXP4+INDX DOES NOT 00000030 
_$t EXCEED THE ARRAY BOUNDS, 11/24/To 00000040 
rrr ern meee ees WR ELOW BO LOCAL PATCH LEVEL 11724772 01831100 
$ VOID 08672001 08668000 
$# PATCH NUMBER 419 FOR XALGOL CONTAINS 5 CARDS 
ST THY S PROVIDES THE CAPABILITY TO PROGRAMATICALLY GENERATE A MEMORY 
$t DUMP IN ALGOL OR XALGOL BY THE STATEMENTS 1/15/73 
$3 DUMPNOWC INTEGER) 3 
rn ners renin cna ME Beg men BEA CAE “PATCH LEVEL I718/73° DHB  Oyss1100° 
If Q@e"7DUMPN® THEN % DUMPNOW(W) MEMORY DUMP 07810500 
BEGIN PANAS EMITL (0)3 EMITPAIR(48sCOM)I & 07810525 
TT ee EMT TOUDEG IF EMTTOCDEL 23° GO TO" XXX SK 07810550 
END? & 07810575 
$# PATCH NUMBER 420 FOR XALGOLsXV,1 CONTAINS 62 CARDS 
Se eee EFFICTENCY” THPROVEMENTS" TO-THE XREP AND BEND PATCH 7/2977 300000010" 
$ VOIDT 04004778 01001750 
ARRAY XREFAY4(0140]»XREFAY2(0829)» XINFOCONSeON27Ib° x FOR REF ONLY 01002000 
tht st pea ti pal cor ann i Sesto sake 
DEFINE XREFINFOCReC J®XINFOCR»(C) DIV 218: & 01002200 
XMARK SIF XREF THEN XREFAY2CXREFPT 1) SeNABSC*)#S J MARK ASSTGNMENTO1002300 | 
HTT INTEGER BSPOINT? 2 FOR BEND oyOozs00°-- — 
BOOLEAN DEFININGS % BEND 01002500 
$ VO;DT 01007654 
FE RERM PROCEDURE STUFFILVL ING LIT VALUE LVUINT vee OZTISSIO 
fons £P DiteLs OS te6 LIT © 9s Sttwls DSpuy3 WOS! Di raprees 02196550 
on | “OSteL Th ees STiwLOC LVL DStw2 pecs OSteLIT"I"3 DStmB DECIO2Z196560 
STUFF EL BSPOINT I BEGINSTACKIBSPOINTI FLINT “OZ196SS 
IF @ 8 "4XREFO" THEN BEGIN SWITCHITC(XREFBIT)# GO AGAIN ENDS 02419100 


nnn ene ee LR REE SHR AEN EP A NAL eR I I SP REE A INR EN | nN on atnUR SORE eR st en 


01007100 


NRRL AR A RPO Lee Lige ae SHH EERE gt Imp mA ERAN PB IN Re SAY tN Ae oy mR we ei 


€) @ 


$ VOID 02419121 
IF NOT ENDTOG THEN % DONT XREF COMMENTS FOLLOWING END 
rrr en FP SEE L TT OS SORTA” THEN SNOT "ALGOL™ TDENTIFIER 
PTOGtsTRUEF & DONT XREF THESE THINGS 
, PTOGHsFALSES & 


02419110 
02882050 
02882200 
05442500 
05443500 


“TEOXREF” THEN 2 “DONT COUNT THIS OCCURANCE TF1O26G802 ~ 


XREFPTeXREFPT@REALCELBATC IJ ¢LVL#O)FSSEEN B410260804 


IF XREF THEN ® DONT XREF SECOND DEC OF SAME VAR 
ENDS 8% 
DEFINING #@TRUES ® WE ARE 
=... ee TF XREF THEN &% DONT COUNT THYS AS” AN OCCURANCE 
XREFPTSeXREFPTOREALCELBATE I JeLVL#023 % IF SEEN B4 


13348000 


“XREFPTVEXREFPT@REALCLEVELF RODS ¥ GET RID OF LAST XREF 13366100 


133486200 
14255500 


| Ta2sgo77 | 


14259078 


PTOGseTRUES E83 PTOGImFALSES & DONT AREF DEFINE PARAMS 14259096 


DEFINING OFALSE? 3 WE” ARE NOT” 
IF XREF THEN & FORGET THE PARAMETERS SPECIFED IN A FORWARD 
_IF GtmTAKECMARK) > 0 THEN & OR EXTERNAL DECLARATION 
“BEGIN SPATECOSKT + #695 XLUNTRXLUNSG ENDS” 
TF ar > 0 AND ERRORCOUNT # 0 THEN & WE DID SOWE XREFFING SO DOITTOIT 
IF NOT NOHEADING THEN WRITECLINELCPAGE))4 DATIMES 
nen ue bl reas OCAE ie eh ta oat ee 
STREAM PROCEDURE PUP(SsD)3 
BEGIN 
ST EST OLED rape UY Atos. 
OOCIF SCa® * THEN JUMP OUTS DStaCHR?3 


“PF STeS CHR PSreseT tT ets OS tes HRs OSseLr tras 


END} 
DEFINE BLANKCP) » BLANKETC 14, Pye. 
ee recnrnnne REC ING Se ae pichiga nets Pe eT eee ins dt 
$ VOID 17069999 
DO BEGIN 
eR EET REP PTS e840 THEN 
BEGIN 
READ(DSK230»XREFAY2(*J (EOF IS 
ee er ag gee ~XREFP TT SOr 
END3 


DStw1OLITe ys SpewSs SpseS34323 SpteS14265 % TO SEG NUM 


14268500 
14470900 
14470940 


— 144709280 


17001000 
17002520 


“17047004 


17048000 
17049000 
17050000 
17051000 
17052000 


“Y7053000- 


17054000 
17063000 


' TTOGR0C0 | 


17065000 
17073500 
1TO7TAOO0 
17075000 
17076000 


17077000 © 


17078000 


IF CLESXREFAY2EXREFPTI), C214271>99999999 THEN 60 TO EOF 517079000 


a nt EA alee sem SO am 


END 

UNTIL 1,09842) GTR OF & DONT SORT NON XREFED ENTRIES 

BLANK(PAY)3 
TE CASTADDRESS NEO LASTADDRESSTOA(O] THEN % NEW OCCURANCE 

TE LASTADDRESS, £9942) GTR XREFAYL¢9)] THEN 
BLANK (PAY)? XREFPT#mOs 

—--—-$-vo- TO0l0, oe Hewes 
BLANKCPAY)3 


17079250" 
17079500 
17083000 
17094100 
17095100 
179099000 


17101000 


PUP2CLAST ADDRESS LSS O»LASTADDRESS, C2127 Is XREFPT®PAY( 119317103000 


VID 
BLANK ¢(PAY)3 


$# PaTcH NUMBER 421 FOR XALGOL CONTAINS 287 caRps 

stars “gored tT NCLUDE"- 8S CARD OPTION AND DE *TMPLEMENTS © 

$1 THE *CAST® LIBRARY COMPILER FEATURE, IN ADDITION THIS MAKES SEVERAL 

$1 IMPROVEMENTS TO THE READACARD ROUTINE, THE HANDELING OF VOID CARDS” 

— Sok F—-HO LABEL PROBLEM IN THE COMPILER TS ~ 

84 ELIMINATED, THIS LAST CHANGE MAKES 9*S CARDS OPTIONAL ON BOTH THE 
$1 GARD AND TAPE FILES, 

= WN ey Sy CUSTOMS” SAN DIEGO CAy” 


$ VOIDT 00305064 


EPPOSOTO 


17103500 
00000020 


00000020 
00000030 


00000050 
00000060 


00305010 


“-¥7700000 


O0000010 


OOO TO te crete et er et meeicncee ie natin ae aneten a 


® 


vais 
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Laos | 
e ee OT, READACARD! UNEXPECTED END OF INPUT, 
| 620 ~ ""STARTINCCUDINGs NESTED INCLUDES NoT IMPLEMENTED, 
621 STARTINCLUDINGS FIRST INCLUDE CARD MUST NAME A FILE, 
622 STARTINCLUDING! JLLEGAL FILE IDENTIFIER, 
TT SOT STARTINOLUDINGS ICGEGAL SEQUENCE NUMBER ON INCLUDE CARO, 
624 STARTIMCLUDINGS FILE MUST HAVE BEEN USED BEFORE FOR © OPTION, 
625 STARTINCLUDING? BAD SYNTAX ON THIS INCLUDE CARD, 
BS ERREINCTUDINGT YOUR INCLUDE FILE IS NOT ON OTSK, 
627 STARTINCLUDING? BEGINNING SEQUENCE NUMBER IS NOT IN THE FILE, 
INTEGER ADDVALUEsTOTALNO? & 
epee eT orn DT Oyo0rs2y ee Seamitee | ‘ypc, Was Tie Oo vata? bil» Ghat Zcg. 5 ia 
$ VOIDT 
THE LAST CHARACTER: IN THE TAPE AND CARD BUFFERS, } 
om" SVOT HT OTT TIT 
0 INCLUDE IN PROCESS, 


> 3 ELABORATING A DEFINE, 
VOT DT OT EIEZOE ieee 
SAVE ARRAY DEFINEARRAY(Ot25)# & OF3KCMAX NEST pEpTEGs: (SEE 1498100) 
DEFINE LASTSE@ w= DEFINEARRAY[ 25)#» % TEMP STORAGE FOR SEQ OF CARD 
~“TSEQM]"# “DEFINEARRAY( 249 ]%_ & FOR CALL NG CONV 

LASTERR w DEFINEARRAY(24)#3 % HOLDS SEQ NO OF LAST ERROR 
FILE INCLUDE DISK SERTAL Cte 10515095 

i) oe 


| 
E 


FILE OSK1 DISK SERIAL r20ad00s rts 10 % FOR XREF 
FILE DSK2 DISK SERIAL (201300) fs 2020)5 % FOR XREF 
save ARRAY -CBUF Fe TBUFF ST BUFFLOTF] ® ¥ INPUT BUFFERS 
$ VOIDT 01564454 
$ VOIDT 04576004 
$ VOEDT 04784004 
INTEGER SAVLASTOSEDeILCRI & FOR INCLUDE 
BERET ER ENE RANGE 5 “¥-FOR INCLUDE OPTION 
emai 3” % LOCAL PATCH LEVEL 11/20/73 DHB 
$ VOIpT 02001614 


. 


BOOLEAN PROCEDURE START INCLUDING FORWARDS % 
BOOLEAN PROCEDURE READINCLUDED | FORWARDS % 
ee aa 


i 


$47 7 T-02134850 
PROCEDURE WRITEBINED x 
IF SINGLTOG THEN WRYTECLINE SI 5eLINC*I)) & 
TT ELSE WRYITECEINELDEL JOT SeLINC& TIS 
$ vorpT 021482255 . 
DEFINE PRINTCARO # BEGIN & 

“DSTRELT TOF -STTeLOC SYMBOLS STVaST#7# 
DSteCHRe OStw2LIT"™ "3 
SWITCH SWISLCARD sLCARD »LTAPES z 

ENO SO" THEN TOTACNOT#ABSTTOTALNOJ*® I 


rr en a 


a ne 


$ vor 02193004 
ESEC(CARDNUMBERSLCRIT 
IF LASTUSED > 0 OR NEWINCL THEN 


ee ee pe sey ee 


_ DEFINE SEQCOMPARECTLCRsCLCR) * % 


 $ VotoT 02903004. 
——- HED TU C4 ROM- CARD READER 
LERteTLCRs LASTUSEDtw33 


a A RR fA 


IF SAVLASTUSEDa3 THEN GO TO LTAPES & INCLUDE CARD WAS: ON TAPE 


00415000 
00420000 
00421000 
00422000 
00423000 
00424000 
00425000 
00426000 
00427000 
01000860 


—OLOOTaI0- 


01331000 
01336000 


01337000 


01394700 
01396000 
04398100 
01493000 
04498100 
01498200 
01498300 
01561010 
OrS61017 
01561025 
01561050 
01561056 
01561065 
01575000 


““OyTazZo0 


01756000 
01783000 
01784000 
01631100 
02001010 


02015010 


02065700 
02065800 


02131300 


02181000 
02181250 


O2T8T500 


02161750 
02182500 


02185250 © 


021865500 
02191250 


““OZTIZONN ~ 
ELSE TOTALNOt#eTOTALNO*ADDVALUE 302192250 


02192500 
02193250 
02193800 
02194600 


“OBTISSOOT 


02202500 
02202750 


62203230 — 


02204000 
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MEDIUMS="7%s & FROM TAPE 
MEDIUME@"P#s £ CARD PATCHES TAPE 
— """ CASTUSEDt#33 8 IN CASE OF EOF ON TAPE 
READCTAPE st Oe TBUFFC*) )CEOFI]3 
_s& NOroT 02208505 


CNSTUSED OK 
#, Z END SEQCOMPARE DEFINE 
DIDINCLUDESREALCDOLLARTOG wrH "ets & 

Te LABEL USE THE SWI TCHs CARDONLY s CARDLAST EOF s TAPELAST »COMPARSEXITsXIT3 
BOOLEAN DOLLAR2TOGs & 


$ VOIpT 02231251 

TF i “THEN GOTO CARDONLY! < 
IF LASTUSED@3 THEN G0 TO TAPELASTS & 
If LASTUSED#2 THEN GO TO CARDLASTS x 
“~TE-LCASTUSEDEO” THEN Z "INCLUDE: 
IF READUNCLUDE THEN GO VSETHESWITCH ELSE G0 EXIT? % 
$ VOIDT 02275004 


@) @ 


a 
| 
| 
t 
i 
i 
I 


| 
| 


| 
| 
| 


$ VoroT 
_ READ(CARD® 16CBUFFE«) (EOF ]3 
““TF-LASTUSEDw] “THEN GO TO EXTT3” & CARD ONLY 
IF LASTUSEDs1 THEN & EOF ON CARD MEANS BYE@BYE 
BEGIN ERRORTOG:sTRUES ERR(615) END & BRANCHES TO ENDOFITALL 
TT SE ECASTUSEDWS THEN © EOF ON TAPE @ SWITCH TO CARD ONLY 
BEGIN LCR#eCLCR$ LASTUSEDIR1) MEDIUMEm@C™s GO EXIT END? 


| 
i 
i 
: 


==" $F VOTOT Ope eavg 
$ VOIDT 02219004 
READCTAPEs tOeTBUFFC I] CEOFI3 
Sens eee eee ) URZIGUUE 
SEQCOMPARECTLCReCLCR)3 
$ VOIDT 
“Ss VON oo ae 
IF COMPARE CHKABSCLASTSEQ), eae THEN % 
PUTSEQNOCLASTSEQeLCRIS & 
CF ERONUMBERTECONY CLSE OMI 657897 S 
NcRseNeRe327683 & 
DOLLARCARDS % 
ERE TFET NEED E THEN 8 j 
IF LISTPTOG OR PRINTDOLLARTOG THEN. PRINTCARO! 
1F DOLLARZTOGIREXAMINCFCR) =m " AND EORMIN EEC RSC) OO reer THEN 


$ VQINT 


i 
| 


OveR "S$" CCHAR MODE POINTER) 


| 


NCREBNER4+32766432768; & OVER * 5” (CHAR MODE POINTER) 
———— “TED TDINCCUDE THEN GO USETHESHT TIC HI x” 
$ VOIpT 02235254 
OUTPUTSOURCE3 


IF OMETTING OR & 

DOLLAR2T@G THEN Go USETHESWI TCHS 
rete spent 
OPTIONSCOPINX#4 J): BREALCBeeTRUE)DS & 

S VOIpT 
ALONG] 


STREAM PROCEDURE cRTVONKERA eRe VR, UcRaseeot VALUE NCR» UCR? 


Fro CBUFFO&) WITH acne END@OF"» MePFILE *#n) e"COMPILER*» eM99999999Ms 


02204250 
02205500 
02205750 
02206000 
02206250 


02209250 


02209750 
02210000 
02210250 
02210500 
02210750 
02212000 
02212025 
02212050 


022172100 


02212200 
02213500 


O22TS500 


02215750 
02216250 


02216500 


02217250 
02217275 
02217500 
02217750 
02218000 
02218250 
02218750 
02219500 


—OR2TITS0 © 


02724500 
02224750 


02225500 © 


02226000 
02228000 


“O22286100 © 


02228750 
02229000 


02229200" 


02229250 
02230000 


(O7230T00 


02230500 
02230750 


— 02231100° 


02234251 
02234500 


~O223540TS0 


02735000 
02235250 


"02235500 


02334000 
02335000 


— UZST9O00 


02353000 
02356500 


02359100 


So estheaemnenenamnennenmnamerneencanmanamennemenamainasnrnennentnnenatae enammnaanmenanaiaaanendietinenamatmmnanramnmeainmmnaenenamenne erinntonanncenne ter eanepenaetineateeem ment ne ea ee ee ee a a i Se a ace ec eee cn eee 


. -O2358000°>°>°>°>> iihshhy Woe ania hl Alike eee. okt 


7 4 


© @ 


BEGIN 
Peon ee py he oe ‘GaAs i Le TRA ns i 
StTtenCers Ol sawVps OSiwea LIT "03 
2C34CIF SC#" " THEN SIs#SI+1 ELSE JUMP OUT 9 TO L))! 
mn eee STEFSEDY NCRIFSTS TACLYVS8Ss GO TRANS} % USE SEQ NO OF THIS CARD 


—_ 


La 
Ip Sce""" THEN 
be Nie ceca al ate BEGIN: ee. 
SPs*SI+13 DISRLCRs OStwt LIT™""s & STOPPER FOR SCAN 
NcReaSts 3 TEMP, STORAGEe? SINCE NcR 1S "LOCAL" TO GETVOID, — 
BET SCRUOW THEN JUMP OUT ELSE 
. BEGIN TALLYteTALLYeg? SoteSpes. END} 
_ENO 
: NCRSBSI3 & te STORAGEs SINCE NCR 1S "LOCAL" TO GETVOID, 
; DIseLCrs OStmt LIT" "5 % STOPPER FOR SCAN 
: ES THEN JUMP OUT ELSE” 
2 BEGIN TALLYS#TALLY¢1; S1a"S1¢1 END)3 
3 ENDS) 
id ‘it ale bre plone “TRANS ; Wem ee at 
3 STIBNCR} DItsVP} nlaenises % “RESTORE POINTERS. 
3 NCRIsTALLYS DISEDIPNCRS DS##NCR CHR3 
g acter alt a, a tat “Pray rht- ve rept 4 mist 1 WE 3 *E0C . a aad t sp 1 
2 DrtaVRs SptsLOc VPS DSteWDSsX ADDRESS OF VOID RANGE, 
END OF GETVQ103 
meetememeome rs mm os “ET ARE QEEROOLLARTOG OR TRUED & 
$ VolDT 
GETVOIDCVoIDPLACEsNCReVOIDCReLCR*LASTSEQ)? % 
Serene ener ES VOTO Tt Se eet et ern eee ee ee cn ee a Be Sete eke t, th e * . ~ Fs , 
IF TLOCR ® 0 THEN % FIRST TIME ONLY 
__ TECRIPMKABSCTBUFFI9])3 
= -g-yotpt 
GETVOIDCVOIDPLACEsNCRe VOIDCReLCReLASTSEQ)$3 & 
$ VOIpT 


Te EE IF TNE LOM THEN SO 
BEGIN ROLLART De dae TART UNCLUBING): 60 EXT EwoA 
IF OQ = "7INOLN® THEN & 
rnin nn BEE SAE ECATTICNENTNOLBITI# GO AGAIN ENDED % 
TOTALNOtm*CCONVCACCUME 1) 200 COUNT) #1)3 
$ VOIDT 02583004 


DOLLARTOGL#HOLLARTOG AND NOT TRUE? 8 
CROSSHATCHs &% 
emma ERR ENT CROSSHATCHIO So 
DOLLAROARDS 
$ VOIpT 02736004 
$ VOInT 02999999 
BOOLEAN PROCEDURE READINCLUDE) 
= BEI 
LABEL EOFS & 
LCRtsILers MEDIUMS eH]? 
FFCeDTEOF I aia ii 


EOF I BEGIN 
READINCLUDE tae TRUES 


Pt ee ee —CHANGESEGCCHERDNUMBERTEORIF FP RESTORE SEQ FIELD FOR VOITDRANGE CHECKS 


IF COMP ARECILCRs INCLCR = THEN ®: THIS: bes “AUT OF RANGE 
pr sTUSED TN SAVERSTUSED? MEDTUMTEM CMS E°TN CASE"OF CARD ONLY ~~ 


ea era pa ene Af A I eI er CEN Rta Rene eRe ad ARR RA RPI RPE HPN Ak Sign (aH CAINE Am RF Sam ama sam amt 


02359425 
02359150 
02359175 
02359200 
02359225 
02359250 
02359275 
02359300 
02359325 
02359350 


— 02359375 


02359400 
02359425 
02359450 
02359475 
02359500 
02359525 
02359550 
02359575 
02359600 
02359625 
02359650 
02359675 
02359700 
02359725 
02366000 
02368000 
02410000 


—O2Z4T1000 


02439000 
02436000 
02458000 
02485000 
02486000 
02570000 
02571000 
02572000 


02573000 


025861000 
02582000 
025602800 
02603000 
02640000 


— 02682000 © 


02530000 
02732000 


C2907 000-~ 


02985004 
02986000 


02986100 


02986200 
02986300 


OUR9e6400° 


02986500 
02966600 
02966700 
02986600 


* F 


—> 


BLANKETCOsLASTSEQ)? & 
I RR Ta a “CLOSETINGLUDED 
EDs 
END READINCLUDE?S 
a BOOLEAN PROCEDURE STARTINCLUDING! 
BEGIN 
LABEL AWAYe FHRUS 
REAL FIRSTHFS INTEGER TédeKs 
BOOLEAN SVNEWTOG3 
DEFINE FLAGITCE)®BEGIN FLAGCE)# GO AWAY END#s 
TE "INDE LTRSTESVNENTOG#® MAXRETH, NEWEPIRST#) 
If OMITTING THEN GO AWAY? 
TF VOIDING QR VOIDTAPE THEN 

“TE COMPARETHKABSTLASTSEQ) #VQIDCR)#O THEN & 

IF VoIOTARE AND LASTUSED*®3 OR NOT VOIDTAPE THEN GO AWAY3 
CHANGESEQ(CRRONUMBER*LCR)$ % RESTORE FOR LIST 
eee ee ey ~~ SVNEWTOGHFNENTOG; 

NEWTOGESNEWFOG AND NOT NEWINCLS 
OUTPUTSOURCES CARDCOUNTIE®CARDCOUNT#IS & 
nn EAT OG ESS VNEWNTOGT 

TURNONSTOPLIGHTC™3",LCR)3 % FOR SCANNING 

START |NCLUDING! mBOOLEANC™H™) 3 % TELL READACARD WE DID OUR THING 
“TE LASTUSEDEO THEN FLAGTT (62073 % CANT NEST THEM 

SKANS 


rr RESO EET THEN BORILE OID 
BEGIN 

IF COUNT > 7 THEN FLAGIT(622)3 
rrr errr Rees, os en A OE CHARACTERS CCOUNTFACCUMED] #3e Tel yy” 
IF INCLUDE sMFIp#T THEN INCLUDE sMFIDSsNEW EST? 
SKANS IF RESULTS2 THEN SKANS 
IF-RESULTEL-OR- COUNT-> fT THEN FLAGITCOR2)1° 
Tis" ™s MOVECHARACTERSCCOUNT*®ACCUME 1) 230T#1)3 


ene et Rm Mn ceca ana 


IF INCLUDE, oFIOAT THEN INCLUDE’ FIDSSNEWS ETS 
eg IT 


ENO? 
ENCLRANGE 18899999990" FINDFIRST##FALSES 
nme te RES FES THEN S NUMBER TS STARTING NUMBER 
BEGIN 

FINDFIRST&8@eTRUES FIRST$a803 
Termes mremncrmenn nm er ONT 3" OO THEN FLUAGTTC62323 a 

NOVECHBAACTERSSEQUNTs ACCUM(1)> NeriRercaseouNIal 

THRUS SKAN} 
etisalat tin il i'm" i i TE Qu ¢e0000 oR i Q e* 2Too00" TH EN eae 
BEGIN & THRU SPECIFIER 

SKANS 


INCLRANGE #908 
MAVECHARAC TERS (COUNT sACCUME 1) +3, INCLRANGEs BeCOUNT)I 
inl ti a a a a —— Se ONT Dag eater Sit pit ime a second 
END3 
END 


neerereeper epee pte een A A A RN NNN 8 Rn 


IF Gey "0000" THEN % START WHERE 1 WE “LEFT OFF” 

BEGIN 

STE DEO OR NE HO THEN FEAGTTO2ZS IT om 
MOVE C+ IBUFFCOOFIRSTI3 FINDFIRSTiwTRUES 


| 


TEREST ET OR COUNT 2-8 THEN FLAGIT CORIO’ SBAD NUMBER - 


jee rete ech rpree bois ieee emp ieee tree rpiamrats tina em oe van iriver pee te meme ors he i erent tee one RH Ie ooh, Selenide, PSF gkerahniwchieete ene 


02986900 
02987000 
02987100 
02987200 


02967300 


02967400 
02987500 
02987600 
02987700 
02987800 


02987900 | 


02988000 
02968100 
02988200 
02988300 
02988400 


02968500 


02988600 
02988700 
02988800 
02988900 
02989000 
02989100 
02989200 


IF SAVLASTUSEDSO AND RESULT#1 THEN FLAGIT(621)3 3 MUST NAME IT lap state 
02989400 


02989500 
02989600 


02989700 — 


029896800 
02989900 
02990000 
02990100 
02990200 


02990300 


02990400 
02990500 
02990600 
02990700 
02990800 


— 02990900 


02991000 
02991100 


02991200 


02991300 
02991400 


02991500 


02991600 
02991700 


02991800 


02991900 
02992000 


O2992T00°° 


02992200 
02992300 


02992500 


era 
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re panna al anita i | wea aa ceo aie: mictae ean Gianna ay ode h Gain ct lM. Beads ee sea reh eet: wee Bir pital aie ate rasleaegeak yet 


CE Ae GO TO THRUS % AND GET = SEQ NO 
ehecnne ENDT 


IF Q@#*7¥0000" OR XMODE#0 THEN FLAGIT(625)3 & BAD SYNTAX 
ILCRimMKABS(]BUFF(9))3 
To SEARCH INGE ODE» TOUF FI RIIF a 
IF MAAR te 1BAPt Tle $ 0 THEN FieKerieecens % FILE Mot ON 018K 
IF FINOFIRS? THEN % BINARY SEARCH FOR FIRST RECORD 
Renee ee eee BEGIN Oo Bila hy ane 
INCLCRIRMKABSCFIRST) 3 
KimMAXReJi als} 
rrr i EES SK PO STEMI E IT Teas DTV 2s 
FOR Ktey=y STEP YF JwO THEN | ELSE wy 
WHILE 1 ? 0 dO 
nee a Lm om “ BEGT N™ Sait ets, 
IF K 2 MAXR THER Jtzy ELSE 
BEGIN 
noe ee —— AE ADCINCLUDETK] 2 {Os TBUF FL #303 
JIBCOMPARECILCRe INCLCR)S 
END3- 
rrr meme os = aT TED THEN O ELSE I DIV 23° 
ENDS 
IF J#2 THEN BEGIN CLOSECINCLUDE)# FLAGITC627) END} % NOT THERE 
ees 
SAVLASTUSEDISLASTUSED) LASTUSED?# =O} % WE ARE INCLUDING 
INCLCR# sMKABSCINCLRANGE) 3 
men RT AEE OOS CASTSEQIE Bo 
AWAY! 
END STARTINCLUDINGS 
Se 


RL cL RRR RI me) RN me en 


02992600 
02992700 
02992800 
02992900 
02993000 
02993100 
02993200 
02993300 
02993400 
02993500 


02993600 © 


02993700 
02993600 
02993900 
02994000 
02994200 
02994300 
029948400 
02994500 


02994600 


02994700 
02994800 
02994900 
02995000 
02995100 
02995200 
02995300 
02995400 
—  OFOODDND 


COMMENT ROSS OREEDSSESSEDERSERCEASEGAEESEEESLERE£E4¢000080800600042008190003000100 


FORWARD DECLARATIONS 
EEE EERE EREELEEDVEAEEERELEEL LET ERER CEE EE LER ALERT ATE CAA ERALERAL 
MOVECLeLASTSF@, eat ee 
WRITERROR¢ REMOTOGsERRNUM» ACCUM( 1)» LIN, @ 001216), LASTSEQ) 
ce oe A oe ee aa aa ga a a hat ee 
MOVE ci LASTSEQsPNCH(9) 23 & 
IF ERRNUM#199 OR ERRNUM#200 OR & 
~~ “ERRNUMBOTT OR ERRNUMBO15° THEN GO TO ENDOFITALLS 
LASTUSED#®13; % CARD ONLY 
TOTALNOSF=CIFADDVALUES*1000)3— 
OTT A ama YS SS AN YG eb AR A ep MR PR fosattamieiatam Agius ate 
NEXTINGOteLaSTINFOSsSORT ASI 
BLANKETC1,LASTERR)S % BLANK LASTERR AND LASTSEO 


LETS MED TUM TM ENS CASTUSED TF ZB ASSUME CARD UNTYL TOLD DIFFEREO9035000 


CLCRtwMKABS(CBUFF(9))3 ¥ 

READACARDY Z READ FIRST CARD AND OPEN FILES 
$ Volpt 09275551 

MOVECHARACTERSC4*LASTERR*OVGTIeg);s & 

nn AAAS EE ARR AT TERS COTLASTERRIGUGT204) 5 3 
$ VOIpT 09426001 
ERROR(R99)) % GOES TO ENDOFITALL 
eTte “TIME 


GETREABY). s READY SET *** GO =" 
BLOCK(RALSEDF ¥ 

eg nea tere 
CLEANUPS x 


03000200 
303000300 
05039500 
505044000 
050495000 
05058000 
05107100 
08107200 
07030000 
09028920 


- O90ZID00 


09033000 
09034500 


09036000 
09037000 


‘OOZIEOBO” 


09275100 
09415000 
09876000 
09421000 
13312500 


-$roov000 


17000100 
17800200 


—17000300> 


17000400 


— 


$# PATCH NUMBER 422 FOR XALGOL CONTAINS 22 CAROS 


"SE TRIS PROVIDES A BEGIN * END MATCH UP AS ON THE 86700¢ DHB 11/13/73 00000010 
; INTEGER NEWBEGCTsOLDBEGCTS % To MATCH BEGINS # ENDS 01002400 
$ Volo 01002500 
as SEPM ore, nee DINO FURS ABSCOLDBEGTT @t SCIEFIOTS MEDIUM OMITTING)} 02182750 — 
STREAM PROCEDURE EDITLUINECLINE *NCReBENDeReSYMBOLeOMIT)3 02183500 
VALUE NCReBEND eRe SYMBOLS OMITS 02183750 
7 we ““““DSTELIT™ Wp NCRTROTs DIteDI@l7y 02185250 
STteLOC BENDs 0S884 DECS Ol se01"43 DSse4 FILLE DI tsNCR3 02185300 
SrteLOc SYMBOLS StteSte7s OSteCHRS DStw2 LIT" "3 02185500 
OLD BEGCT ISOS & WE PRINTED IT” 02196275 
$ VOIp 02196611 02196510 
TF DEFINECTR a J THEN % NOT IN A DEFINE DECLARATION 02869100 
OLABEGCT b=NEWBEGCTSSNEWBEGCT#} ELSE 02869300 
IF T,CLASS # ENDV THEN 02869400 
oy ae Se ee ~BEGING nares 028669500 
OLDOBEGCT RRIF OLDBEGCT > 0 THEN 0 ese "NEWBEGCT3 02669600 
: NEWBEGCTtsNEWBEGCT#13 02869700 
§ vorpT (02910804, 02910100 
EDI TLINECLINeFCRe0,” "sMEDIUM,0)}3 05038000 
ee ONT YT Sapa Snes nplinee, sink wet eimai Sg, a Sheree De Ate Seon vie es a so ' . . t 425550 0 . 
$ VoIpT 14268500 
$# PATCH NUMBER 423 FOR XALGOL CONTAINS 15 CAROS 
poe age ST-THIS CORRECTS AND IMPROVES THE CODE GENERATED For CASE STATEMENTS, 00000010 
$1 f+ A CASE INDEX EQUAL TO THE NUMBER OF CaSE ELEMENTS WILL NOW 00000020 
$1 CAUSE AN INVALID INDEX AS ALL OTHER INVaLIO CASE INDICIES DO, 00000030 
SF 297 FOUR SYLLABLES OF UNNECESSARY BRANCHING CODE IS ELIMINATED AT 00000080 
$3 THE END OF THE CASE STATEMENT, 00000050 
st _3e AN EXTRA WORD IN THE CASE BRANCH SEGMENT Is REMOVED, 00000060 
yeeaise ® LOCAL PATCH LEVEL 178/74 DHB 01831100 
REAL LINK, LLINK, TEMP, No ADRe ‘PRTs NULLS 07646390 
mmm EE COOP GT XT TG ONO TT OT6R641T0 
$ VOID 07646424 07686420 
END ELSE 07646500 
EES ENDY THEN ® AT -ESAE - O07 646502 
BEGIN IF NwO THEN N&ed) & IN CASE OF EMPTY CASE STATEMENT 07646504 
1F LINK > 0 AND NOT GOTOG THEN z OMIT Last BRANCH TF ITS THERE 07646506 
BEGIN, CINKTELGINAT CV Rt 2 END OT6a6507 = 
. GO ONOUT} 07646808 
END! 07646509 
Seay re EMTTCCEINK EL ING PLINKt eb reber ENT 07686533" 
ENDS & 07646538 
$ VOID 07646551 07646540 
$# PATCH NUMBER 424 FOR XALGOL CONTAINS 107 CARBS: 
$1 THyS IMPLEMENTS THE TRUTHSET AS ON THE B6700, IN ADDITION 00000010 
THE DEFAULT “FRUTASET PNUMERIC® [5S ADDED, yee e — O0000020 
$1 1/43/74 00000030 
549 TRUTHSETES _TRUTHSET SPECIFIER MUST BE A STRING» 00306895 
RTT 8ES COMMENT 1667" " ow? OL278075~ 
EVENTV a23#, COMMENT 273 01298700 
ae TRUTHSETV aoats COMMENT 303 01298750 
INTEGER NT SETS IO NUMBER” OF TRUTHSETS DECLARED ® 3°00 7 
ARRAY TRUTHSETS (081199) % CAN HAVE 40 04520000 


D chescomenancercagrerrnammenmcnamnenernencanenencmnen axememsccecnneeanemrren cas et eee nneet 


OT6RESSG 


“OysT9000°- 


o © 


POWERSOFTEN s#¢SoRTA#1) és 01574000 
Pt ee oe “SORTA "BY BSHS B® MARK XV_ 200 2/13/78 01580000 
e 944g” % LOCAL PATCH LEVEL 14/43/74 01831100 
STREAM PROCEDURE DEBUGWORD(SEQ® CODE*FEILI# VALUE SEQs 04130000 
POEs eee PERN aa TST ERCODET 08134000 
e IF aCbLaSS#TRUTHSETID AND NOT VBIT THEN GO TO poy % NO VALUE 07217513 
DEFINE CNA ® 298+ % CHARACTER IN ALPHA OTISTaLO 
TE gig i “ENN ® 308, 8 CHARACTER IN NUMERIC 07957420 
e CNT & 314%3 % CHARACTER IN TRUTHSETID 07957430 
EMITOCMKS)S EMyTLCOIS EMITLCOIS EMITLCODS 07957440 
“S VOTH OTISTTVT 07957700 
e EMrTLcO)3 07957750 
EMITLCENA)S &% CHARACTER IN ALPHA 07957800 
SHOT D OTFSTIIOL 07957900 
'e@ END ELSE 07958010 
IF ELCLASS®TRUTHSETID THEN | 07958020 
: tr pe eee spk 07958030 
‘e SIMPLENAMECELBATEIIJ>3 EMITLOCNT)$ STEPETS 07958040 
: END ELSE 07958050 
: ASL ee EE OHO NUMER THEN 07958060 
‘e BFGIN 07958070 
3 EMITLCO)3 EMITLCCNNDS STEPITS 07958080 
: aaa ee a ERTIES RATES TANGCONEANE) F7 ae 07956150 
‘e SWN » 25#, & SCAN WHILE [N NUMERIC 07961811 
SWT = 26#, %& SCAN WHILE IN TRUTHSETID 07961812 
lai eer ee a '" SUA # 298," & SCAN UNTIL IN ALPHA © 07961820 
e SUN = 308s % SCAN UNTIL IN NUWERIC 07961824 
SUT = 348) ® SCAN UNTIL IN TRUTHSETID 07961822 
BEGIN EMTTLCIF” WHILECOND THEN SWA ELSE SUA) EMITLCO) END ELSE 07965400 
@ IF ELCLASS # TRUTHSETID: THEN 07965410 
BEGIN EMITLCIF WHILECOND THEN SWT ELSE SUT)} 07965420 
more mnmrnrmmen mmm areren oesesce macnn SP MPLENAMECEGBATEIIS © 07965830 
e END ELSE 07965440 
| TF @ » *7NUMER® THEN 07965450 
orm 2 = BEST EMTTECIF: WHILECOND THEN SWN ELSE SUN) EMIJTL(O) END ELSE 07965860 
Py $ VOID 07965604 07965600 
TWN = 252, % TRANSFER WHILE IN NUMERIC 07968410 

eS SSS RT” FEBS OB CTRANSFER WHILE IN TRUTHSETID O796BR20 © 
r) FUT © 29¢8-e ® TRANSFER UNTIL InN TRUTHSETID 07968430 
FUN © 3080 % TRANSFER UNTIL IN NUMERIC 07968440 

Te aa Pe eee mT a COMMENT CONDITION IST WHITE” IN ALPHA, WUMERTC*s “TRUTHSETID 07975200 
e OR’ UNTIL IN ALPHAs NUMERIC» TRUTHSETID3 07975300 
BEGIN EMITLCIF WHILECOND THEN THA ELSE. ‘TUA)S EMITLCO) END ELSE 07975500 
EEL CRASS FROTHSERLO THEN “OT9ITSS10: 
e BEGIN EMITLCIF WHILECOND THEN TWT ELSE TUT)3 07975520 
SIMPLENAMECELBATEIJ)} 07975530 
e IF @ ® "TNUMER® THEN 07975550 
BEGIN EMITLCLF WHILECOND THEN THN ELSE TUNDS EMITLCO) END ELSE 07975560 

—$-¥5te “OTST SHOT re - OT9TSB00- 
e 0€6T0132000060560000» "BHAPPE", *NEDOOOO0". SeTocodNdOOO OOO z0e 374409214430 
0¢T04300003080000000» mBTRUTHMs _NSETOO000". 2758 09214437 
e a 0¢T2000000000004050, COMMENT POWERS OF TEN. } 376409214644 
: Of COMMENT SORTA 3 %76509218445 
a iF SEP SINT PCO GF 32 STEPS UNTIL F465 °750> STEP 2 UNTIL 798,761 °° 09270513. 
e ENDS 09360100 

© 
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TOKENS: @TOKENS#15 % COUNT OF SYNTACTIC ITEMS. PROCESSED02909500 


® 
we NISETSteNTSETS#33 09360200 
FOR [480 STEP 3 UNTIL NTSETS DO 09360300 
rae eRe ea 2 a>) 5° 0, eae 09360400 
e MOVECgsTRUTHSETSLI Je pRTCCGT4 oT RUTHSETSE 1429) DIV 128209360500 
GTi MOD 128))38 09360600 
SS a , — MOVECLTTRUTHSETSE Pete PRTC CGTIPeGTiteL) O1V 126% OF 360T00 
e GTi MOD 128])3 09360800 
IF BOOARRAYIDSTYPESINTARRAY ID 13330550 
See rg ate atin tas “OR TYPE S TASKID™” 13330560 
e OR TYPE ® TRUTHSETID 13330570 
THEN ® MUST BE CALLED BY NAME 13330580 
ooo ——“PROCEDURE TRUTHSETES” 13595500 
@ BEGIN 13595510 
STREAM PROCEDURE TRUTHSETTERCNeAsT)¢ VALUE NO. 13595520 
EIN LOTAL CeCPd Mee 13595530 
e STtmAS SiteS1+3s DI twLOC CE OLeeDI473 CPROI? 13595540 
NC DI#SCPs DSs=CHRS DItsTs SKIP DBS SKIP C DBF DStsSET 3 13595550 
meres PR SETTERT Pie a URE ee Eee Meee ee {3595860 
e LABEL AWAY} 13595570 
If GTatcJe19#¢0 THEN FLAGC25) 3 ‘% NO SAVE OR OWN 13595580 
ae ara masa, (oo 1 hs eal ; “93595590 
e DO BEGIN 13595600 
STEPITS P2tbeTRUES ENTRYCTRUTHSETID)S 13595610 
nee smmenemnnes TE SPECTOG THEN GO AWAY? 13595620 
e TRUTHSETSCNTSETS ep) 1@GETSPACECTRUES=429%43 % CONSTANT OR STRING1 3595630 
IF ELCLASS#LEFTPAREN THEN BEGIN ERR(105)38 GO AWAY END} 13595640 
eee ep cerg tes ~ TF STERTESTRING AND ELCLASS#STRNGCON THEN & BAD 13595650 
e BEGIN ERR(549)8 GO AWAY END3 13595660 
DO TRUTHSETTERCCOUNT#®ACCUME1 Je TRUTHSETSENTSETSJ) 13595670 
, EEE STEP TES TRING AND EGCLASSFHSTRNGCONT 7 13593660 
e IF ELCLASS#RTIPAREN THEN BEGIN ERR(104)3 GO AWAY END} - £3595690 
oa IF DEBYGTOG THEN 13595694 
a ee ““BEGIN-DEBUGHORDT® “SF TRUTMSETSENTSETS Je LIND? WRITELINGS 13595692 
6 DEBUGWORD("™ ", TRUTHSETSCNTSETSe1J,LIN)# WRITELINES 13595693 
END DEBUG} 13595694 
a er eae 13595700 
e - £ 13595710 
ene: STEPLOCOMMAS 13595720 
ese ee ee ne "i Lie a ar MAE 13595730 
@ END TRUTSETDECERS 13595740 
TRUTHSETOECe &% 14016750 
PT RD EC DEF TNEDEC » AUXSIZERRG AUXSTZERRe TASKDECSEVENTDECs § Yg0zT000 
e TRUTHSETDEC) | 14021250 
TRUTHSETDECS TRUTHSETES GO TO START! 14155800 
ee 425° FOR XALGOL CONTAINS G° CARDS” 7° '  Goo00000 
e $1 TH1S ADDS THE NUMBER OF SYNTACTIC ITEMS PROCESSED TO THE <GOUPIUER 00000010 
$1 SUMMARY, I,£, 7700, 7/46/74 DHB 00000020 
NTACTIC THEwS- SCANNED, ~OOSOaTTS”™ 
@ 
e 
td] 
td] 


"PROGRAM CONTAINS™# 179" SYNTACTIC ITEMS,"/ 09274455 
KS AEN SFB SYNTACTIC FTEM COUNT > O9st9250° 

$# PATCH NUMBER 501 FOR XALGOL CONTAINS 3 CARDS 14155900 

$t THIS 1S AN IMPROVED VERSION OF PATCH XIV»e105. IT COMPILES A FILE 14156100 
tthe “SUCH AS FT sf 3 ROCDE* oe wT THOUT oo £e$56300-- 

$4 MAKE ING THe USE OF OCTAL AND HEX STRINGS IMPOSSABLE IF THE 14156500 

SF LAST THING ENTERED INTO THE SYMBOL TABLE WaS A FILE, 12/20/72 14156700 

. - ——-$ VOTO ATV Os sean na, ale a ol pi i ie pea a a ee eons Soadlieexs 
IF S¥FOPENTRY THEN DEFINECTR#®99$ % STOP OCTAL HEX PROBLEM 13080750 


am O2T6TS00™ Cen mama em a a ar 
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IF DEFINECTR>95 THEN DEFINECTRS®03 % RESET DEFINCTR 13061250 

mn = ATT R NUMBER 800 FOR XALGOL CONTAINS 35 CARDS 
$3 THIS PATCH ADDS THE CAPABILITY To SYNTAX 00000010 
$: THE VARIOUS BCP CONSTRUCTS 00000020 
$7 ERRORBRANCH ATTRIBUTE ADDED 6/5/72" 00000030 
$3 THIS IMPLEMENTS vue COMPILER PORTION OF THe XWRITE praiautecdi7aei7eco00DDko 
26 08493094 
eet pee ee eae te — Feta ste “¥°LASTSTATION 08493121 
WSO4LASTS™ & LASTSTATUS 08493122 
SE7TTMEO" % TrMEOUT 08493123 
ee ee ee ig OG HANTS RO CHARTYEE 0ga93124 
eMBDCacc” % DCACCESS 08493125 
oP SDCUSE* % DCUSE 08493126 
Se pe ar eae wren ““sMHOBUSERC" ZX USERCODE 08493427 
»*409STNST™ & STNSTATUS 08493128 
eBB05XREAD” %& EXTENDED READ 08493129 
rs “ER BOPERROR™ ZF ERRORGRANTH © 084935130 
e"BO6XWRIT™ % EXTENDED WRITE FOR SYN LINES 08493131 
$ 2 END OF FILL STATEMENT CWITH DCP STUFF SAFELY HIDDEN) 08493135 
aaa “DEFINE NBATTRIBUTES & ¥° THE NUMBER OF STANDARD BIG B ATTRIBUTES 08493504 
17#, % MARK XV,2,0 2/13/74 08493502 
DCPOFFSET = & THE NUMBER OF OVER@LAPPED ATTRIBUTES 08493503 
rrr er crraen aes om tonnes mm cams eens woe ET OE MARK AVG SO 2/4377 08493504 
SePKURBUTENDES CATTRIBUTEINDX ~ DCPOFFSET) #3 08493505 
ERLTNUMCIF ATTRIBUTEINDX® 1 THEN "6ACCESS” ELSE 08493790 
PEs se ese oe ee “TE ATTRIBUTEINDX# & THEN "60THRUS® ELSE 06493791 
IF ATTRISUTEINDX¥12 THEN "6ARASIZ" ELSE 08493792 
IF DCPATRBUTENDX#13 THEN "6LSTSTN” ELSE 08493793 
ne ren enn can ete APR ERR OPEROKELS THEN VGLSTSTS” ELSE © 08493794 
IF DCPATRBUTENDX315 THEN "6TIMOUT” ELSE 08493795 
IF DCPATRBUTENDX#16 THEN "6CHRTYP” ELSE 08493796 
Sentra, PP ee eR sien Ae gee aE) IF DCPATREUTENDX#17? THEN "6DCACES” ELSE 08493797 
IF DCPATRBUTENDX®20 THEN "P6STNSTS® ELSE 08493798 
TF OCPATRBUTENDX=22 THEN MOERRBRN"™ aoe 08493799 
- 0 & PTLEATTRIOUTESCATIRGEUTEINDX1(6012136) 08493820 
& FILEATTRIBUTESCATTRIBUTEINOXICS 93819) H 08493830 
nti oe  EMETE COAT PRIBUTETNDN © % 08493840 
CIF ATTRIBUTEINDX > NBATTRIBUTES THEN DCPOFFSET+108493642 
ELSE 1) 08493844 
et rere recreate enare sinteeisarconie ee EREALCNSFP OR NOFA EC S9IATI LI “OSaITBI6 

BEL INTO COVUL ING “  OOLTBIOATEXECUTE O7R © 
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